curiosidad de viernes (copia de un fichero a si mismo)

[bastardo10]

Hola, como hoy es viernes, y no tengo mucho que hacer, ademas estoy espeso!
me ha entrado una duda, como hacen los virus, malware, etc para copiarse a si mismos!.
esto es algo que nunca me he planteado hacer en una aplicacion, ya que un ejecutable que se copia a si mismo no tiene mucha utilidad, o por lo menos yo no lo he necesitado.
asi que si alguien sabe algo, o tiene ideas, que las exponga, haber si sale un hilo interesante!

[[seoane]]

Pues con CopyFile

[bastardo10]

no jorobes que eso funciona!con el fichero abierto, es tan sencillo? puff hoy si que estoy espeso!

[Ñuño Martínez]

Claro. Cuando ejecutas un programa, su archivo ejecutable suele bloquearse como sólo lectura, por lo que se puede seguir abriendo para lectura.

[bastardo10]

bueno, se me pasa la resaca y la empanada y quizas queda mas bonito, utilizando TFileStream
ademas el ejemplo para torpes (I'm) de la delphi, lo dice claro.
procedure TForm1.Save1Click(Sender: TObject);

var
NewFileName: string;
Msg: string;
NewFile: TFileStream;
OldFile: TFileStream;
begin
NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
if MessageDlg(Msg, mtCustom, mbOKCancel, 0) = mrOK then
begin
OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);

try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
end;

end;

[[seoane]]

Y no es mas sencillo usar CopyFile