File löschen und umbenennen geht nicht

[Helmi]

Hallo,

erstmal: den Code if FileExists(ExtractFilePath(Application.ExeName)+'vers_patch.ini') then im "Timer2Timer" kannst du dir ersparen, denn
das gleiche, über einen anderen Weg macht dieser Code in der Procedure CheckForPatchFile:  if not FileExists(patchfile) then exit; Lass dir doch erstmal die Rückgabewerte zurückmelden:

Delphi-Quellcode:

procedure TForm7.CheckForPatchFile;
var
  patchfile, currentfile: string;
begin
  patchfile := ExtractFilePath(Application.ExeName)+'vers_patch.ini';
  currentfile := ExtractFilePath(Application.ExeName)+'vers_aktuell.ini';
  if not FileExists(patchfile) then
    ShowMessage(Format('Datei existiert nicht: %s', [patchfile]));
    exit;
  If not deletefile(currentfile) then
    begin
      ShowMessage('löschen fiel fehl!');
      exit;
    end;
  If not renamefile(patchfile, currentfile) then
    begin
      ShowMessage('Umbenennen fiel fehl!');
      exit;
    end;
  ShowMessage('alles scheint in Ordnung gewesen zu sein!');
end;

Die ShowMessages zeigen dir was los ist, ob das Lösen funktionierte bzw. das Umbenennen.