|
|
|
| acAutoUpgrader component.
|
| type
|
| TacAUEndUpgradeEvent = procedure(Sender: TObject; var RestartImediately: Boolean) of object;
|
|
|
| property OnEndUpgrade: TacAUEndUpgradeEvent;
|
| The OnEndUpgrade event occurs when application has successfully updated and about to be restarted.
|
|
|
|
|
| procedure TForm2.acAutoUpgrader1EndUpgrade(Sender: TObject);
|
| begin
|
| RestartImediately := False; // restart it later when user click "Finish" button
|
| end;
|
|
|
| procedure TForm2.FinishButtonClick(Sender: TObject);
|
| begin
|
| RestartApplication(''); // restart with default parameters
|
| // (RestartParams + use upgrade method specified in the Info-file)
|
| end;
|
| RestartParams property and RestartApplication method;
|
| OnDoOwnCloseAppMethod, OnAfterRestart and OnBeginUpgrade events.
|