http://www.FrankNStein.de/Smiley-Wolke.gif Hallöle.
Diese Code erstellt die Batchdatei und Startet diese.
Die Batchdatei wartet dan bis das Progragramm beendet wurde, löscht dieses, copiert das Update und startet dein Programm wieder.
Da dieser Code aber nicht dafür gedacht war das Update aus einem Unterprogramm zu hollen, hatte ich nur noch das Verzeichnis im Code geändert.
Hab diesen Fehler jetzt behoben:
Delphi-Quellcode:
s1 := Paramstr(0);
s2 := ExtractFilePath(Paramstr(0)) + '
Update\update.upd';
s3 := ChangeFileExt(Paramstr(0),'
.bat');
AssignFile(f, s3);
ReWrite(f);
WriteLn(f, '
@echo off');
WriteLn(f, '
:1');
WriteLn(f, '
Erase "'+s1+'
"');
WriteLn(f, '
If exist "'+s1+'
" Goto 1');
WriteLn(f, '
Copy "'+s2+'
" "'+s1+'
"');
WriteLn(f, '
"'+s1+'
"');
WriteLn(f, '
Erase "'+s3+'
"');
CloseFile(f);
ShellExecute(
handle,'
open',PChar(s3),
nil,PChar(ExtractFileDir(ParamStr(0))),SW_HIDE);
(aber nicht getestet)
http://www.FrankNStein.de/Smiley-Kuss.gif * *
http://www.FrankNStein.de/Smiley-Spinne.gif * * *
http://www.FrankNStein.de/Smiley-Winken.gif