[Shift85]

Подскажите пожалуйста как в скрипте прописать 2 шт Splash'a чтобы показывались по очереди? »

Как то так.

Добавь свои файлы. (isgsg.dll,Splash1.png,Splash2.png)

[Антон_Мураткин@vk]

Shift85, Не показывает Splash. Есть ещё какие нибудь способы?

[Nordek]

Не показывает Splash. »

Всё дело в том, что кто-то использует Unicode версию.

[Gnom_aka_Lexander]

Не показывает Splash »

в строке

Код:

procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer);
  external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';

string заменить на AnsiString и все будет показывать.
Вот так:

Код:

procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer);
  external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';

[Dinvin4ester]

Dinvin4ester, 90 строка. »

на 90 строке у меня прекомп.Можно поточнее ? Спасибо.

[sergey3695]

Dinvin4ester,

Код:

function SevenZipCommand(const hWnd: HWND; szParams: AnsiString; const lpArchiverCallback: Longint): Longint;
begin
    Result := SZ_ERROR;
    case szParams[1] of
        'a': ProgressPage.Description := 'Создание архива';
        'b': ProgressPage.Description := 'Тестирование производительности';
        'd': ProgressPage.Description := 'Удаление файлов из архива';
        'e': ProgressPage.Description := 'Извлечение файлов из архива';
        'l': ProgressPage.Description := 'Список файлов архива';
        't': ProgressPage.Description := 'Тестирование файлов архива';
        'u': ProgressPage.Description := 'Обновление файлов в архиве';
        'x': ProgressPage.Description := 'Извлечение файлов из архива с полными путями';
    end;
    if lpArchiverCallback <> 0 then szParams := Format('%s -hide', [szParams]);
    CharToOemBuff(szParams);
    try
        if lpArchiverCallback <> 0 then
        begin
            hMsg1Label := ProgressPage.Msg1Label.Handle;
            hMsg2Label := ProgressPage.Msg2Label.Handle;
            //show progress page
            ProgressPage.Show;
            ProgressPage.ProgressBar.Show;
            //set callback
            SevenZipSetOwnerWindowEx(hWnd, lpArchiverCallback);
        end;
        Result := SevenZip(hWnd, szParams, '', 0);
    finally
        if lpArchiverCallback <> 0 then
        begin
            ProgressPage.Hide;
            SevenZipKillOwnerWindowEx(hWnd);
        end;
    except
        Result := SZ_DLLERROR;
    end;
end;

куда уж точнее? в том что мне кидал, там 90 строка.

[Dinvin4ester]

sergey3695,
Хоть убейте,но не найду этого.

[Антон_Мураткин@vk]

Gnom_aka_Lexander, Благодарю, это слово всё исправило.

[Dinvin4ester]

sergey3695,
Или я что-то не то смотрю или вы скачали другой скрипт. Я не использую внешние упаковщики,а скрипт расчитан на них и из-за этого не видно прогресс бара,пользуюсь только средствами инно.
Поэтому и прошу помощи и подсказки.

[El Sanchez]

Я не использую внешние упаковщики,а скрипт расчитан на них и из-за этого не видно прогресс бара »

Dinvin4ester, с чего вдруг такое утверждение? Внешние упаковщики вообще никак не влияют на отображение элементов управления.

пользуюсь только средствами инно »

Dinvin4ester, а ботва уже стандартное средство? Используя ботву, все скрывают OuterNotebook с почти всеми элементами управления, используемых в установщике, потом имеют геморрой в виде имитации перехода между страницами инсталлятора и поиска пропавших элементов. Если хотите видеть ProgressGauge, то меняйте ему родителя на WizardForm, в нужный момент показывайте/скрывайте. Это подсказка.