[YURSHAT]

Как создать свою пустую страницу в инсталляторе? »

Пример

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup

[Languages]
Name: "ru"; MessagesFile: "compiler:Languages\Russian.isl"

[CustomMessages]
ru.PageName=Название моей страницы
ru.PageDescr=Описание моей страницы

[_code]
var
  MyPage: TWizardPage;
  Label1: TLabel;
  
procedure RedesignWizardForm;
begin
  MyPage:= CreateCustomPage(wpWelcome, ExpandConstant('{cm:PageName}'), ExpandConstant('{cm:PageDescr}'));
  
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Parent := MyPage.Surface;
    SetBounds(ScaleX(0), ScaleY(216), ScaleX(417), ScaleY(17));
    Caption := SetupMessage(msgInfoAfterClickLabel);
  end;
end;

procedure InitializeWizard;
begin
  RedesignWizardForm;
end;

[ILIA_1992]

Как исправить эту ошибку ?

http://s019.radikal.ru/i607/1205/b3/13fc49b5389c.jpg

[Gnom_aka_Lexander]

ILIA_1992, так-то оффтоп. Но, отвечу - использовать для распаковки те-же параметры, которые были при упаковке. от Inno это никаким боком не зависит.

[ILIA_1992]

Gnom_aka_Lexander,

Я давно репаки не делал . Всё забыл .
Начинаю с нуля.
А поподробнее про ошибку можно ? Заранее спасибо.

И ещё один вопрос .

Как найти реестр ? например Alan Wake's American Nightmare .

[El Sanchez]

Ибо вот только что проверил и никакой конвертации не произошло... »

Вот весь скрипт: »

Raf-9600, ясно, ведь в указанных папках ogg-файлов нет, они глубже - в подпапках. Вот вариант №2, универсальный. В процедуру RecodeOgg добавлен параметр Recurse (True - искать в подпапках, False - только в указанной папке).

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

[code]

Код:

var
    RecodePage: TOutputProgressWizardPage;


function FindFiles(Path, Mask: String; Recurse: BOOL): TArrayOfString;
var
    FindRecAll, FindRecMask: TFindRec;
begin
    if not DirExists(Path) then Exit;
    //
    if FindFirst(AddBackslash(RemoveBackslash(Path)) + Mask, FindRecMask) then
    try
        repeat
            if (FindRecMask.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0) then
            begin
                SetArrayLength(Result, GetArrayLength(Result)+1);
                Result[GetArrayLength(Result)-1] := AddBackslash(RemoveBackslash(Path)) + FindRecMask.Name;
            end;
        until not FindNext(FindRecMask);
    finally
        FindClose(FindRecMask);
    end;
    //
    if Recurse then
    begin
        if FindFirst(AddBackslash(RemoveBackslash(Path)) + '*', FindRecAll) then
        try
            repeat
                if (FindRecAll.Attributes and FILE_ATTRIBUTE_DIRECTORY <> 0) and (FindRecAll.Name <> '.') and (FindRecAll.Name <> '..') then
                    Result := FindFiles(AddBackslash(RemoveBackslash(Path)) + FindRecAll.Name, Mask, Recurse);
            until not FindNext(FindRecAll);
        finally
            FindClose(FindRecAll);
        end;
    end;
end;

procedure RecodeOgg(Path, Mask: String; Recurse: BOOL);
var
    iFiles: TArrayOfString;
    ResultCode, i: Longint;
begin
    try
        RecodePage.Show;
        iFiles := FindFiles(Path, Mask, Recurse);
        for i := 1 to GetArrayLength(iFiles) do
        begin
            RecodePage.SetProgress(i, GetArrayLength(iFiles));
            RecodePage.SetText(iFiles[i-1], IntToStr(i*100/GetArrayLength(iFiles)) + ' %');

            Exec(ExpandConstant('{app}\oggdec.exe'), '-Q ' + AddQuotes(iFiles[i-1]), '', SW_HIDE, EwWaitUntilTerminated, ResultCode);
            DeleteFile(iFiles[i-1]);
        end;
    finally
        RecodePage.Hide;
    end;
end;

procedure InitializeWizard();
begin
    RecodePage := CreateOutputProgressPage('Обработка файлов', '');
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
    if CurStep = ssPostInstall then
    begin
        if IsComponentSelected('GameVoice') then RecodeOgg(ExpandConstant('{app}\data\local\sfx'), '*.ogg', True);
        if IsComponentSelected('Music') then RecodeOgg(ExpandConstant('{app}\data\global\music'), '*.ogg', True);
    end;
end;

P.S. Не увидел в вашем коде привязку какого-нибудь файла к компоненту.
P.P.S. Вместо выделенных строк можете написать для теста чего-нибудь нейтральное, типа Sleep(100).

[Raf-9600]

Не увидел в вашем коде привязку какого-нибудь файла к компоненту. »

Это тестовый скрипт.

Все файлы которые отвечают за GameVoice сконвертировались отлично, но вот когда дело дошло до Music то появилась ошибка Out Of Range. и компилятор выделил:

Код:

Exec(ExpandConstant('{app}\oggdec.exe'), '-Q ' + AddQuotes(iFiles[i]), '', SW_HIDE, EwWaitUntilTerminated, ResultCode);

Ещё как я понял этот скрипт создает свою страничку, а для меня это совсем не подходит, так как это вряд ли получиться совместить с теми украшательствами что уже имеются у меня.

И ещё на данный момент скрипт в поле статуса пишет какой файл обрабатывает, а в том поле что нижу, пишет проценты. Но мне бы хотелось чтобы в поле статуса писалось во время обработки GameVoice - "Конвертация монологов", а во время обработки Music - "Конвертация музыки". И после этих надписей уже можно отображение процентов прогресса.

[El Sanchez]

Все файлы которые отвечают за GameVoice сконвертировались отлично, но вот когда дело дошло до Music то появилась ошибка Out Of Range. и компилятор выделил: »

Raf-9600, мерси, поправил.

Ещё как я понял этот скрипт создает свою страничку, а для меня это совсем не подходит, так как это вряд ли получиться совместить с теми украшательствами что уже имеются у меня. И ещё на данный момент скрипт в поле статуса пишет какой файл обрабатывает, а в том поле что нижу, пишет проценты. Но мне бы хотелось чтобы в поле статуса писалось во время обработки GameVoice - "Конвертация монологов", а во время обработки Music - "Конвертация музыки". И после этих надписей уже можно отображение процентов прогресса. »

Raf-9600, лады, раз хотите стандартную, то вариант №3:

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

Код:

[code]
function FindFiles(Path, Mask: String; Recurse: BOOL): TArrayOfString;
var
    FindRecAll, FindRecMask: TFindRec;
begin
    if not DirExists(Path) then Exit;
    //
    if FindFirst(AddBackslash(RemoveBackslash(Path)) + Mask, FindRecMask) then
    try
        repeat
            if (FindRecMask.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0) then
            begin
                SetArrayLength(Result, GetArrayLength(Result)+1);
                Result[GetArrayLength(Result)-1] := AddBackslash(RemoveBackslash(Path)) + FindRecMask.Name;
            end;
        until not FindNext(FindRecMask);
    finally
        FindClose(FindRecMask);
    end;
    //
    if Recurse then
    begin
        if FindFirst(AddBackslash(RemoveBackslash(Path)) + '*', FindRecAll) then
        try
            repeat
                if (FindRecAll.Attributes and FILE_ATTRIBUTE_DIRECTORY <> 0) and (FindRecAll.Name <> '.') and (FindRecAll.Name <> '..') then
                    Result := FindFiles(AddBackslash(RemoveBackslash(Path)) + FindRecAll.Name, Mask, Recurse);
            until not FindNext(FindRecAll);
        finally
            FindClose(FindRecAll);
        end;
    end;
end;

procedure RecodeOgg(Path, Mask, Status: String; Recurse: BOOL);
var
    iFiles: TArrayOfString;
    ResultCode, i: Longint;
begin
    iFiles := FindFiles(Path, Mask, Recurse);
    with WizardForm.ProgressGauge do
    begin
        Position := 0;
        Max := GetArrayLength(iFiles)-1;
        for i := 1 to Max+1 do
        begin
            Position := i;
            WizardForm.StatusLabel.Caption := Status + IntToStr(i*100/(Max+1)) + ' %';
            Exec(ExpandConstant('{app}\oggdec.exe'), '-Q ' + AddQuotes(iFiles[i-1]), '', SW_HIDE, EwWaitUntilTerminated, ResultCode);
            DeleteFile(iFiles[i-1]);
        end;
    end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
    if CurStep = ssPostInstall then
    begin
        if IsComponentSelected('GameVoice') then RecodeOgg(ExpandConstant('{app}\data\local\sfx'), '*.ogg', 'Конвертация монологов выполнена на... ', True);
        if IsComponentSelected('Music') then RecodeOgg(ExpandConstant('{app}\data\global\music'), '*.ogg', 'Конвертация музыки выполнена на... ', True);
    end;
end;

[Raf-9600]

El Sanchez, Вот теперь все работает как нужно, Благодарю

На ум пришло лишь два нюанса которыми его можно было бы дополнить:
1. Было бы очень круто, если бы прогресс-бар так же бы был в таскбаре (на ярлыке инсталлятора) если у пользователя Win7.
2. Так как в моем скрипте на странице инсталляциии отображается только строчка статуса, то хотелось бы чтобы проценты хода выполнения отображались тоже в строке статуса, после надписи. Т.е. чтобы можно было написать "Конвертация музыки выполнена на" и справа (не снизу) отображение процентов.

Это все конечно не критично, но хотелось бы иметь

[El Sanchez]

1. Было бы очень круто, если бы прогресс-бар так же бы был в таскбаре (на ярлыке инсталлятора) если у пользователя Win7. »

Raf-9600, такое возможно сделать только в юникодной версии Inno.

2. Так как в моем скрипте на странице инсталляциии отображается только строчка статуса, то хотелось бы чтобы проценты хода выполнения отображались тоже в строке статуса, после надписи. Т.е. чтобы можно было написать "Конвертация музыки выполнена на" и справа (не снизу) отображение процентов. »

Raf-9600, изменил свой предыдущий код.

[Raf-9600]

El Sanchez, ИМХО его можно было бы и в первый пост, под спойлер "Ссылки на примеры скриптов" закинуть. Так как уверен, что этот код многим пригодиться.