Delphi-Quellcode:
if FindFirst('Tool.exe', faAnyFile, Search) = 0 then
System.SysUtils.FindClose(Search);
if Search.Size <> GetRemoteFilesize
('http://schnabbeldidu.de/update.exe') then
if Application.MessageBox('New Update Found!' + #13 +
'Start Update now? Otherwise this Program will Terminate!',
'Updater', MB_ICONWARNING or MB_YESNO) = IDNO then
Application.terminate;
Laut der Codeformatierung fehlt da wohl mindestens ein Begin-End, bei
if FindFirst(
?
Und was heißt "Code wird ignoriert"?
- Wird der code wirklich ignoriert und nicht in die EXE eingebaut? (beim debuggen keine blauen Pünktchen links neben den Zeilen)
- Oder wird dein Code nur nicht ausgeführt, weil ein IF nein sagt?
Application.Terminate sollte dennoch ausfegührt werden.
Nja, wenn du den Code vor CreateForm legst und CreateForm(Form1) und Application.Run garnicht erst ausfühst, wenn geupdatet wird, dann sollte sich das Problem von Selber lösen.
Relative Pfade ... nja, wenn es daran lieg, daß eventuell FindFirst nichts findet, dann bistz du selber dran Schuld.
PS: 
FileExists und neuerdings (XE+) auch TFile.Exists
[edit]
Oh, es gab noch garkeine GetFileSize-Funktion? (mit war so, als gab's da mal was) Und TFile.GetSize fehlt auch.