How to display a message after an installation is completely cancelled?
Asked
Active
Viewed 1,116 times
1 Answers
2
You can monitor the CurStepChanged
. If the last step ever started is the ssInstall
and you never get to the ssPostInstall
, let alone ssDone
, the installation was most probably aborted. In that case, display the message in the DeinitializeSetup
event function.
[Code]
var
LastStep: TSetupStep;
procedure CurStepChanged(CurStep: TSetupStep);
begin
Log(Format('Step: %d', [CurStep]));
LastStep := CurStep;
end;
procedure DeinitializeSetup();
begin
{ Installation started, but never finished => It must have been cancelled. }
if LastStep = ssInstall then
begin
MsgBox('The installation was successfully aborted.', mbInformation, MB_OK);
end;
end;

Martin Prikryl
- 188,800
- 56
- 490
- 992