[Delphi] kopie von Datei verschieben

[Crash-Override]

Hi, wie ache ich es bei Delphi, das wenn man auf einen Button klickt, das dann eine Datei in ein anderes Verzeich iss kopiert wird...aber nur kopiert, nicht verschoben...?

[Freezy]

http://www.delphi-source.de/tipps/dateien/?id=77

Soll heisen:

Code:

CopyFile(PChar('von'), PChar('nach'), true);

thats all

[Crash-Override]

Danke, aber das funzt nur mit genauem Dateinamen...also:

Code:

CopyFile(PChar(OpenDialog1.Filename), PChar('C:\1.txt'), true);

aber wie mach ichs, das die Datei den selben Dateinamen hat wie die geladene?

[Ineluki]

Code:

Procedure Button1Click(Sender:TObjct);
var filename:String;
begin
if Not(OpenDialog1.execute) then Exit;
filename:=ExtractFileName(Opendialog1.Filename);
CopyFile(PChar(OpenDialog1.filename),PChar('C:\Wo\Du\Auch\Hin\Willst\' + filename));
end;