Timer 2 hat ein Intervall von 3500 und er scheint die CheckForPatchFile Prozedur nicht aufzurufen. Beim Click auf den Button keine Reaktion.
Wenn ich Breakpoints setze,
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;
...werden DeleteFile und RenameFile einfach übersprungen, er springt dann auch nach einem weiteren Druck auf F7 sofort zum "end;" von Timer2Timer und dann in die
Unit "CostumTimer" hierhin:
Delphi-Quellcode:
procedure TCostumTimer.DoOnTimer;
if Assigned(FOnTimer) then
FOnTimer(Self);
end;
EDIT: Das Löschen funzt jetzt. Habe aus DeleteFile(currentfile); einfach DeleteFile(PChar(currentfile)); gemacht. Jetzt muss ich nur noch am rename knabbern. Da bekomme ich den Fehlercode = 2.