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...