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

[[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

[bastardo10]

Pues si, pero asi queda mas impresionate!
la cuestion es aparentar!
gracias por la ayuda!

[[seoane]]

Si es cuestión de hacer las cosas mas difíciles de lo que son, te recomiendo que aprendas a programar en brainfucker

http://delphi.jmrds.com/?q=node/9