[Dodakaedr]

пример от vit56 картинки закоментируй и заработает vbs »

Спасибо, но страница финишна мне не нужна.....

[TryRooM]

Dodakaedr, http://rghost.ru/54007600
по такому принципу, она будет , но её можно отключить и vbs будет работать.

[Dodakaedr]

TryRooM, а как еще и installing page можно скрыть?

[TryRooM]

Dodakaedr, http://rghost.ru/54016893

[Dodakaedr]

TryRooM, Не скрывает(((

[TryRooM]

Dodakaedr, http://rghost.ru/54026093

[Dodakaedr]

TryRooM, тоже не идет( Ничто не может скрыть страницу InstallingPage (процесс установки)...

[TryRooM]

Dodakaedr,
из справки
SILENT, /VERYSILENT
Установка в ускоренном или очень ускоренном режиме. При установке в ускоренном режиме окно мастера и фоновое окно мастера не отображаются, отображается только окно прогресса. При очень ускоренной установке окно прогресса тоже не отображается. Остальная установка проходит как обычно - отображаются сообщения об ошибках в ходе установки, страница приветствия (если ее отображение не отменено директивой DisableStartupPrompt или параметром '/SP-' командной строки).

[Dodakaedr]

из справки SILENT, /VERYSILENT Установка в ускоренном или очень ускоренном режиме. При установке в ускоренном режиме окно мастера и фоновое окно мастера не отображаются, отображается только окно прогресса. При очень ускоренной установке окно прогресса тоже не отображается. Остальная установка проходит как обычно - отображаются сообщения об ошибках в ходе установки, страница приветствия (если ее отображение не отменено директивой DisableStartupPrompt или параметром '/SP-' командной строки). »

Значить никак???

[saurn]

Значить никак??? »

Поигратся с ShowWindow. Другого способа не знаю

читать дальше »

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
OutputDir=...
DisableFinishedPage=yes
DisableReadyPage=yes


[Files]
Source: {win}\Fonts\*; DestDir: {app}; Flags: external overwritereadonly ignoreversion;

[Code]
const
    BM_CLICK = $00F5;


function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; external 'ShowWindow@user32.dll stdcall';


procedure CurPageChanged(CurPageID: Integer);
begin
    case CurPageID of
        11:
        begin
            ShowWindow(WizardForm.Handle, SW_HIDE);
            PostMessage(WizardForm.NextButton.Handle, BM_CLICK, 0, 0);
        end;
    end;
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
    case CurStep of
        ssDone: MsgBoxEx(Application.Handle, 'Завершено.', #0, $00000000 + $00000030, 0, 0);
    end;
end;