Programm beenden - wie?
Mit der folgenden Prozedur kann der User, während mein Programm läuft, ggf. eine neue Programmversion herunterladen; dazu muss das Programm selbst aber zunächst beendet werden.
Mit
Form2.Close; (= die Info-Form mit dem Download-Link zur Setup-Datei)
Form1.Close; (= das Hauptprogramm, aus dem Form2 aufgerufen wird (form2.showmodal:wink:)
geht das aber nicht.
Wie macht man’s richtig?
Gruß
J. Schlör
procedure TForm2.BitBtn2Click(Sender: TObject);
var hpitadresse: string;
begin
if MessageDlg('Vor der Installation einer neuen Version musst du die alte Version de-installieren (s. Deinstallation-Routine in PROGRAMME/...)!' + #10#13 + 'Bitte schließe nach dem Download die Homepage Maschine und de-installiere sie; danach kannst du die neue Version installieren..',
mtConfirmation, [mbNO,mbOK], 0) = mrno then
exit
else
begin
Form2.Close;
Form1.Close;
hpitadresse := '..\download\meinprogrammsetup.exe';
try
ShellExecute(Application.Handle, 'open', PCHar(hpitadresse), nil, nil, SW\_ShowNormal);
except
begin
Application.MessageBox(PChar('Der Start des Browsers ist leider fehlgeschlagen.'),'Fehler',0+16);
end;
end;
end;
end;