Outra Problema Urgente!!!

[anakim]

Olá a todos to 1tempao tentando d todos os jeitos resolver + nao consigo, preciso ler dados d um executavel apartir de uma posicao ate o final e colocar numa string, ate to conseguindo ler, sendo q so Armazena o Primeiro Byte Lido, veja o codigo abaixo:

Código Selecionar Expandir

var
  s : TFileStream;
  buff : byte;
  t,str : string;
begin
s := TFileStream.Create('test.exe', fmOpenRead);
str := edtString.Text;
try
  s.Position := s.Size - SizeOf(str);
  s.Read(PChar(buff)^, SizeOf(str));
  t := t + chr(buff);
  showMessage(t);
  finally
  s.Free;
  end;

Preciso q ele armazene todos os bytes lidos apartir da posicao especificada como acima, aguardo resposta...

[Shady]

Anakim, nao e a primeira vez. Tenha mais cuidado com seu titulo. Negativo.