Hola. Este ejemplo graba 0123456789 al final de cualquier archivo
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
f: file of Byte;
i : integer;
c : byte;
s : PChar;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
Seek(f,Filesize(f));
for i := 0 to 9 do
begin
s := PChar(inttostr(i));
c := byte(s[0]);
Write(f,c);
end;
CloseFile(f);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
f : file of byte;
i : integer;
c : byte;
begin
if OpenDialog1.Execute then
begin
AssignFile(f,OpenDialog1.Filename);
Reset(f);
Seek(f,Filesize(f)-10);
for i := 0 to 9 do
begin
Read(F,c);
Edit2.Text := Edit2.Text + Char(c);
end;
CloseFile(f);
end;
end;
un par de cosas:
- si el ejecutable donde quieres grabar es la propia aplicacion, tendras que 'esconderla' del administrador de tareas. desconozco como se hace eso
![Frown](http://www.clubdelphi.com/foros/images/smilies/frown.gif)
- si hay algun antivirus por alla que tenga grabado los checksums de los .exe, probablemente te identificara esto como virus.
saludos