![]() |
![]() ![]() ![]() |
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.
|