Update und Schliessen meines Programmes

[wb32]

Folgendes Problem, ich will wenn eine Exe Datei vorhanden ist (Setup meines Programmes) dieses beim Beenden auotmatisch starten.

geht soweit auch alles ausser das ich auf der gestarteten exe keine knöpfe drücken kann, denke das meine anwendung auch noch nicht wirklich beendet ist obwohl sie ausgebelndet wird...

Delphi-Quellcode:

procedure Tgmain.FormClose(Sender: TObject; var Action: TCloseAction);
 var upddat:string;
begin

 comport.close;
 comport.Destroy;

 // Check Update
 upddat := ExtractFilePath(ParamStr(0))+'\update-file.exe';
 if FileExists(upddat) then begin
  ShowMessage('Es wurde ein Update gefunden!'+#13#10#13#10+'Das Update wird automatisch gestartet.');
  ShellExecute(Application.Handle,'open',PChar(upddat),''{Parameter},'c:\WinNT\System32',SW_SHOW);
 end;
 
end;

wie löse ich das am besten? kann ja sonst auch nicht updaten da meine exe evtl noch läuft...

[TonyMontana]

Hmmm evtl. mal statt Application.Handle 0 einsetzen. Probiers mal aus, vllt funktioniert es ja dann...

Hope it helps.

[lbccaleb]

nicht gerade das sauberste aber probier es doch mal mit:

  Halt;

[wb32]

das geht einwandfrei danke dir