Shellfileoperation (Datei kann nicht kopiert werden)

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var s: string;
    Ini: TIniFile;
    von, nach: string;
begin
  //irgendwas mit der Ini machen
  if RadioButton1.Checked then
  begin
    von := IncludeTrailingPathDelimiter(GetCurrentDir) + 'ORG_Daten\fifa.db';
    nach := IncludeTrailingPathDelimiter(Label1.Caption) + 'data\cmn\fifa.db';
    if not Copyfile(PChar(von),PChar(nach), false) then
      MessageBox(Handle,PChar(SysErrorMessage(GetLastError)),'Fehler',MB_OK or MB_ICONERROR);
  end;
end;

Versuch es mal so (aus dem Kopf und ungetestet).