Here is an example of creating an msg window during uninstall -
`[Code]
procedure CurUninstallStepChanged (CurUninstallStep: TUninstallStep);
var
mres : integer;
begin
case CurUninstallStep of
usPostUninstall:
begin
mres := MsgBox('Do you want to Remove settings?', mbConfirmation, MB_YESNO or MB_DEFBUTTON2)
if mres = IDYES then
DelTree(ExpandConstant('{userappdata}\Myapp'), True, True, True);
end;
end;
end; `
You can change '{userappdata}\Myapp'as you prefer.
source
share