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.
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<