Wie Kopiert man Dateien in den Projekt Ordner?

[DeddyH]

CopyFile erwartet in den ersten beiden Argumenten PAnsiChars. Und ".\" ist nicht unbedingt das Anwendungsverzeichnis.

Delphi-Quellcode:

if CopyFile(PAnsiChar(AbschlussBild),PAnsiChar(ExtractFilePath(ParamStr(0)) + ExtractFileName(AbschlussBild)),False) then
  begin
    DeleteFile(ExtractFilePath(ParamStr(0)) + 'ending.*');
    RenameFile(ExtractFilePath(ParamStr(0)) + ExtractFileName(AbschlussBild),ExtractFilePath(ParamStr(0)) + 'ending.*');
  end
else
  MessageBox(0,PAnsiChar(SysErrorMessage(GetLastError)),'Fehler',MB_OK or MB_ICONERROR);