Hallo Rolf,
Prima, das es geklappt hat.
Mir ist nicht genau klar, was du machen willst, aber:
Den Download startest du, in dem du im OnUpdateFound die variable Download auf True setzt. Das Neustarten kannst du mittels der Prozedur Restart auslösen, wenn du's nicht gleich nach dem Download haben willst.
Beispiel:
Delphi-Quellcode:
// aus einem Programm von mir ...
procedure TTerminHauptFormular.WebUpdateDownloadComplete(sender: TObject;
var Start: Boolean);
begin
Application.MessageBox (PChar('Der Download ist abgeschlossen.'+#13#10+'Bitte starten Sie DiKa neu!'), 'Information', MB_Ok);
UpdateDurchfuehren := true;
end;
Das Prog läuft weiter, bis es geschlossen wird. Im OnCloseEvent dann bitte ...
Delphi-Quellcode:
if UpdateDurchfuehren then
WebUpdate.Restart (false);
Application.Terminate;
end;
Die Restart erstellt dann die Batch, aber das Prog wird von dir selber beendet.
Ich hoffe, das beantwortet deine Frage? Wenn nicht, dann nochmal das Ganze!
Einen schönen Sonntag
Marco