[El Sanchez]

А через procedure CurUninstallStepChanged как? »

AlekseyPopovv,

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

Код:

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

[habib2302]

Доброе время суток. как вам объяснить!? Короче. Как сделать проверку на использование команды /DIR?
Т.е инсталл запущенный с командой /DIR, то приложение указанное в разделе [Run] должно запускаться с командой (Filename: {tmp}\nsis.exe; Parameters: /D={app};)
если инсталл запущенный без команды /DIR, то приложение должно запускаться без команды (Filename: {tmp}\nsis.exe

[kotyarko@fb]

habib2302, по идеи, должно работать..:

Код:

[Run]
Filename: {tmp}\nsis.exe; Parameters: "/D={app}"; Check: DIRParamExists();
Filename: {tmp}\nsis.exe; Check: not DIRParamExists();

[*Code]
Function DIRParamExists(): Boolean;
var
 I: Integer;
begin
 for I := 1 to ParamCount do
  case (Uppercase(ParamStr(I)) = '/DIR') of
   True: Result := True
   False: Result := False;
  end;
end;

Но можно сделать и красивее, если в параметре "Parameters" (тавтология она такая) использовать команду {code:..} (если её там можно использовать вообще, точно не знаю).

[El Sanchez]

по идеи, должно работать »

kotyarko@fb, не будет. Если /DIR не последний параметр, то DIRParamExists вернет False. Надо так:

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

Код:

[Run]
Filename: {tmp}\nsis.exe; Parameters: "{code:GetDIRParam|/D=""{app}""}"

[code]
//////////////////////////////////////////////////
function GetDIRParam(const Param: String): String;
begin
    if ExpandConstant('{param:DIR|}') <> '' then
        Result := Param;
end;

[Okta_333]

Парни, такая ситация. Хочу сделать чтобы у пользователя был выбор, устанавливать ли мод, или нет, вроде чекбокса. Мод в архиве. Если чекбокс нажат, то после основной установки пойдет установка мода, если нет, то и суда нет.
Как такое можно реализовать?

[PlanktoN]

Парни, проблема. Загрузил Фоновое изображение на инсталлятор через ботву. Сделал WizardForm.Innernotebook.hide и WizardForm.OuterNotebook.hide, чтобы изображение было видным, но эти параметры скрывают слова. Что надо сделать чтоб были слова и фоновая картинка одновременно. Плиз ответьте.

[sergey3695]

Okta_333, if Чекбокс.Checked then (а дальше распаковка архива. если используешь isdone, то читай справку)
PlanktoN, Parent:= WizardForm; и CurPageChanges (посм как правильно пишется) скрытие и показ элементов реализовывать.

[kotyarko@fb]

А можно имеющееся в программе изображение (загруженное через [Files]) открыть в стандартном виндовом "средстве просмотра фотографий"?

upd: разобрался.

[AlekseyPopovv]

Мне нужно узнать версию программы из реестра:
[HKEY_LOCAL_MACHINE\SOFTWARE\MyPrograms\Program]
"Version"="13.06.2015"

И сделать чтобы было сообщение в окошке "Версия такая такая". Или если этого параметра нет в реестре то тогда сообщение "Версия не установлена".
procedure ProgramButtonClick(Sender: TObject);
var
Hislo: String;
begin
if RegQueryStringValue(HKLM, 'SOFTWARE\MyPrograms\Program', 'Version', Hislo) and (Hislo <> '') then
if MsgBox('Версия Hislo.',mbInformation, mb_ok) = IDok then
end;

[kotyarko@fb]

AlekseyPopovv,

Код:

procedure ProgramButtonClick(Sender: TObject);
var
 Hislo: String;
begin
 if RegQueryStringValue(HKLM, 'SOFTWARE\MyPrograms\Program', 'Version', Hislo) and (Hislo <> '') then
  MsgBox('Версия: ' + Hislo + '.', mbInformation, mb_ok)
 else
  MsgBox('Версия не установлена.', mbInformation, mb_ok);
end;