[TryRooM]

habib2302, Пробуйте

Скрытый текст

[code]

Код:

 procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
 begin
 if (CurUninstallStep = usUninstall) and DirExists(ExpandConstant('{userappdata}\Proga')) then
 begin
  if MsgBoxEx(UninstallProgressForm.Handle, 'Вы хотите удалить настройки?', 'Удаление настроек', MB_YESNO or MB_ICONQUESTION, 0, 0) = IDYES then
   DelTree(ExpandConstant('{userappdata}\Proga'), True, True, True);
  end;
  if (CurUninstallStep = usPostUninstall)  then
     if MsgBox('Вы хотите удалить ключ активации?', mbInformation, MB_YESNO) = idYes then
     RegDeleteKeyIncludingSubkeys(HKCU, 'SOFTWARE\Progasoft\key');
  // RegDeleteKeyIncludingSubkeys(HKLM, 'SOFTWARE\Progasoft\key');
  // RegDeleteKeyIncludingSubkeys(HKLM64, 'SOFTWARE\Progasoft\key');
end;