[kotyarko@fb]

habib2302, типа такого:

Код:

Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
 if CurUninstallStep = usUninstall then
  if MsgBox('Сохранить настройки?', mb_Confirmation, MB_YESNO) = IDYES then
  ...
end;

И прописываете ваш код сохранения.

[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;

[AlekseyPopovv]

kotyarko@fb, Да, всё получилось.

[AlekseyPopovv]

Как создать файл .txt через procedure CurStepChanged(CurStep: TSetupStep);?

[TryRooM]

AlekseyPopovv, Примерно так

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

Код:

procedure CurStepChanged(CurStep: TSetupStep);
  begin
  if  CurStep=ssPostInstall then
    begin
    SaveStringToFile(ExpandConstant('{userdesktop}\Registration.txt'), #13#10 + 'твой номер' + #13#10, True);
    end
  end;

[PlanktoN]

Помогите! Как поставить фоновое изображение в инсталлятор как у механиков на всех страницах.Чтоб слова и тд были видны. SOS

[PlanktoN]

И еще! Игра пиратка. В нем есть файл rev.ini. Как изменить ник через инсталлер.(Создать страницу для смены ника)

[AlekseyPopovv]

Мне через файл ini нужно найти папку:
[Splash]
CaptureFolder=C:\Foto
Эта папка может быть в любом другом месте и называться по другому.
Потом нужно проверить существует ли папка и выдать запрос на удаление.
Как это сделать?

[El Sanchez]

Мне через файл ini нужно найти папку: [Splash] CaptureFolder=C:\Foto Эта папка может быть в любом другом месте и называться по другому. Потом нужно проверить существует ли папка и выдать запрос на удаление. Как это сделать? »

AlekseyPopovv,

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

Код:

procedure DeleteCaptureFolder;
var
    CaptureFolder: String;
begin
    CaptureFolder := GetIniString('Splash', 'CaptureFolder', '', 'где-то там\file.ini');
    if DirExists(CaptureFolder) and (MsgBox('Удалить папку?', mbConfirmation, MB_YESNO) = IDYES) then
        DelTree(CaptureFolder, True, True, True);
end;

[AlekseyPopovv]

El Sanchez, А через procedure CurUninstallStepChanged как? Или не получится?