Zitat von
simlei:
Vielen Dank!!
@ Spider: Ich wusste garnet dass es so schöne Funktionen dafür gibt wie ExtractPath
Funktioniert!! (!!)
Für andere: PAnsiChar Umwandlung muss man noch reinbaun für die ersten beiden Argumente der FileCopy-Funktion. (PChar(...))
Bitte
Ja, das mit dem PChar hab ich übersehen, kannste aber auch so lösen:
Delphi-Quellcode:
procedure FileCopy(const FileName: String; DestDir: String);
begin
DestDir := IncludeTrailingPathDelimiter(DestDir);
CopyFile(PChar(FileName), PChar(DestDir + ExtractFileName(FileName)), true);
end;