Einzelnen Beitrag anzeigen

ReVenGer

Registriert seit: 11. Okt 2005
Ort: Hannover
50 Beiträge
 
Delphi XE7 Architect
 
#1

Application.Mainform / Code wird ignoriert

  Alt 9. Dez 2013, 16:47
Hi zusammen,

ich habe folgendes Problem.

In meinem Mainform (Form1) prüfe ich bei OnCreate mittels Dateigrößenvergleich (Lokal/Web) ob ein Update für mein Programm vorhanden ist.

Code:
 
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;

Sollte dem so sein, öffne ich mit folgendem code die Form3 wo sich meine Progresbar und der code zum downloaden befindet und setze ShowMainform:=False;

Code:
Form3 := Tform3.Create(nil);
  Form3.show;
Application.ShowMainForm := False;
Soweit funktioniert alles.
Aber, wenn ich jetzt meine Anwendung nach dem Download der Datei komplett schließen möchte, ignoriert er mein Application.Terminate aus der Form3 heraus.
Auch ein Showmainform:=True; wird ignoriert, ich weiß nicht warum?!


Welche Möglichkeiten habe ich um meine Programm von dort aus zu beenden?


Vielen Dank im Voraus!

Geändert von ReVenGer ( 9. Dez 2013 um 16:51 Uhr)
  Mit Zitat antworten Zitat