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
exit;
deletefile(currentfile);
renamefile(patchfile, currentfile);
end;
Ich bin gerade echt am verzweifeln...
...ich weiß nicht, aber es scheint, als würde sich Delphi um diesen Codeschnipsel gar nicht kümmern. Kein Löschen der File, kein Umbenennen der File.
Aufgerufen wird die CheckForPatchFile Procedure etwas später bei einem Timer:
Delphi-Quellcode:
procedure TForm7.Timer2Timer (Sender: TObject);
begin
Label9.Caption:='Patching...';
Form7.Caption:='0%';
begin
if FileExists(ExtractFilePath(Application.ExeName)+'vers_patch.ini') then
CheckForPatchFile;
Timer3.Enabled:=True;
end;
end;
Timer2 wird im FormShow Ereignis gestartet
Delphi-Quellcode:
procedure TForm7.FormCreate(Sender: TObject);
begin
Label9.Caption:='Loading...';
Timer2.Enabled:=True;
end;