[Gnom_aka_Lexander]

те GetIniString(...) = 'yes' значит True »

а еще есть функция GetIniBool, что проще мне кажется. и в код уважаемого El Sanchez совсем несложно ее добавить.
Прототип:
function GetIniBool(const Section, Key: String; const Default: Boolean; const Filename: String): Boolean;

[Raf-9600]

в Voice=false нет необходимости Checked[Items.IndexOf('a')] принмает булев значение (True, False), но мы проверяем условие (сравниваем значения) те GetIniString(...) = 'yes' значит True »

Это не от недопонимания написано, просто такой стиль, если можно так выразиться...

а если там нет 'yes' или стоит что-то другое или пусто то будет False, те айтем не будет отмечен, то бишь галки не будет »

Понял, поспешил с вопросом. Я думал что если не найдёт значение то возмёт его из самого инсталлятора, а не снимет галочку.

Возникла проблема. Почему-то часть параметров работают отлично, но остальные вызывают ошибку "List index out of bounds" при запуске инсталлятора. Собсно вот кусок кода, почему-то строчка c "cm:Game" проходит отлично, а "cm:backup" вызывает ошибку:

Код:

procedure InitializeWizard();
var
    iFile: TIniFile;
    
begin
    iFile := ParseIniFile(ExpandConstant('{src}\PreSelector.ini'));
    with WizardForm.ComponentsList do
    begin
      Checked[Items.IndexOf(ExpandConstant('{cm:Game}'))] := GetIniValue('Game', 'Backup', '', iFile) = 'true';
      Checked[Items.IndexOf(ExpandConstant('{cm:backup}'))] := GetIniValue('Game', 'Type', '', iFile) = 'Full';
    end;
end;

Наличие "расшифровки" cm:backup проверил, правильность написания с тем что указано в секции инсталлятора [Components] - тоже, но абсолютно не понимаю, из-за чего может быть ошибка?

[Johny777]

а еще есть функция GetIniBool, что проще мне кажется. и в код уважаемого El Sanchez совсем несложно ее добавить. »

добавил . Думаю Raf-9600 так будет проще

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

Код:

                                                                                                            
function IsKey(const Section, Key: String; Default: boolean; iFile: TIniFile): BOOL;
var
    i, j: Integer;
begin
    Result := Default;
    for i := 0 to GetArrayLength(iFile)-1 do if CompareText(iFile[i].Section, Section) = 0 then
    begin
        for j := 0 to iFile[i].Entries.Count-1 do if CompareText(iFile[i].Entries.Names[j], Key) = 0 then
        begin
            Result := iFile[i].Entries.Values[Key] = 'True';
            Break;
        end;
        Break;
    end;
end;

Raf-9600, функция function IsKey(const Section, Key: String; iFile: TIniFile): BOOL;
где
первый входной параметр - String - имя секции
второй входной параметр - String - имя ключа
третий входной - возвращаемое по умолчанию булев значение (а то что если секции или ключа нет, а компонент по умолчанию должен быть отмечен или не отмечен)
четвёртый входной параметр - TIniFile
если в таком-то ключе такой-то секции значение 'True', то функция вернёт True, в противном случае False
пример:

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

Код:

procedure InitializeWizard();
var
    iFile: TIniFile;
    
begin
    iFile := ParseIniFile(ExpandConstant('{src}\PreSelector.ini'));
    with WizardForm.ComponentsList do
    begin
      Checked[Items.IndexOf(ExpandConstant('{cm:Game}'))] := IsKey('Game', 'Backup', False, iFile);
      Checked[Items.IndexOf(ExpandConstant('{cm:backup}'))] := GetIniValue('Game', 'Type', '', iFile) = 'Full';
    end;
end;

============================
лучше юзай для своих сообщений вместо функции ExpandConstant('{cm:backup}')) другую - CustomMessage('backup')
она в примерно 2 раза быстрее вернёт строку сообщения для текущего языка
тест:

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.

[CustomMessages]
H=fffffffffffffffffffffff

[  code]
function GetTickCount: DWORD; external 'GetTickCount@kernel32.dll stdcall';

procedure InitializeWizard();
var
  i: Integer;
  dwStartTime: DWORD;
begin
  dwStartTime := GetTickCount;
  for i := 0 to 100000 do CustomMessage('H');
//  for i := 0 to 100000 do ExpandConstant('{cm:H}');
  MsgBox(IntToStr(GetTickCount-dwStartTime), mbInformation, MB_OK);
end;

"List index out of bounds" »

а он Enabled? (или нет флага fixed)
===================================
UPD: обновил функцию

[Raf-9600]

Думаю Raf-9600 так будет проще »

Благодарю. Пока что эту функцию не встраивал, так как все ещё не могу разобраться с ошибкой "List index out of bounds".
Если у тебя есть время, посмотри, пожалуйста, более полный исходник:

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
LanguageDetectionMethod=uilanguage
ShowLanguageDialog=auto

[CustomMessages]
ru.TypeOfInstallation=Тип установки:
en.TypeOfInstallation=Type of installation:
ru.Game=Обычный
en.Game=Normal
ru.portable=Портативный
en.portable=Portable
ru.OnlyLocalization=Локализация
en.OnlyLocalization=Localization
ru.backup=Резервная копия
en.backupєckup
ru.FullInstallation=Полная установка
en.FullInstallation=Full installation

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

[Components]
Name: "Game"; Description: "{cm:TypeOfInstallation}"; Flags: disablenouninstallwarning;
Name: "Game\Full"; Description: "{cm:Game}"; Flags: exclusive disablenouninstallwarning; Types: full
Name: "Game\Pottable"; Description: "{cm:portable}"; Flags: exclusive disablenouninstallwarning;
Name: "Game\Lokal"; Description: "{cm:OnlyLocalization}"; Flags: collapsed disablenouninstallwarning;
Name: "Game\Lokal\Backup"; Description: "{cm:backup}"; Flags: disablenouninstallwarning;

[Types]
Name: "full"; Description: "{cm:FullInstallation}"; Flags: iscustom


[   Code]
type
    TIniFile = array of record
        Section: String;
        Entries: TStringList;
    end;

function ParseIniFile(const Filename: String): TIniFile;
var
    iFile: TArrayOfString;
    i: Integer;
begin
    if not FileExists(Filename) then Exit;
    SetArrayLength(Result, 0);
    LoadStringsFromFile(Filename, iFile);
    for i := 0 to GetArrayLength(iFile)-1 do
    begin
        //для всех непустых строк, исключая комментарии
        if (iFile[i] <> '') and (Copy(iFile[i], 1, 1) <> ';') then
        begin
            //если строка является секцией...
            if (Pos('[', iFile[i]) = 1) and (Pos(']', iFile[i]) = Length(iFile[i])) then
            begin
                //...пишем в результат имя секции...
                SetArrayLength(Result, GetArrayLength(Result)+1);
                Result[GetArrayLength(Result)-1].Section := Copy(iFile[i], 2, Length(iFile[i])-2);
            end
                else
            begin
                //...иначе пишем пару параметр/значение
                if TObject(Result[GetArrayLength(Result)-1].Entries) = nil then
                    Result[GetArrayLength(Result)-1].Entries := TStringList.Create;
                Result[GetArrayLength(Result)-1].Entries.Append(iFile[i]);
            end;
        end;
    end;
end;

//своя функция для чтения значений параметров из секций
function GetIniValue(const Section, Key, Default: String; iFile: TIniFile): String;
var
    i, j: Integer;
begin
    Result := Default;
    for i := 0 to GetArrayLength(iFile)-1 do if CompareText(iFile[i].Section, Section) = 0 then
    begin
        for j := 0 to iFile[i].Entries.Count-1 do if CompareText(iFile[i].Entries.Names[j], Key) = 0 then
        begin
            Result := iFile[i].Entries.Values[Key];
            Break;
        end;
        Break;
    end;
end;

procedure InitializeWizard();
var
    iFile: TIniFile;
    
begin
    iFile := ParseIniFile(ExpandConstant('{src}\PreSelector.ini'));
    with WizardForm.ComponentsList do
    begin
      Checked[Items.IndexOf(CustomMessage('Game'))] := GetIniValue('Game', 'Type', '', iFile) = 'Full';
      Checked[Items.IndexOf(CustomMessage('backup'))] := GetIniValue('Game', 'Backup', '', iFile) = 'true';
    end;
end;

[El Sanchez]

Пока что эту функцию не встраивал, так как все ещё не могу разобраться с ошибкой "List index out of bounds" »

Raf-9600, потому что из-за флага collapsed компонента Game\Lokal не отображается дочерний компонент. Нужно для родителя (Game\Lokal) вместо collapsed написать checkablealone, для дочки (Game\Lokal\Backup) добавить dontinheritcheck.

[Raf-9600]

потому что из-за флага collapsed компонента Game\Lokal не отображается дочерний компонент. »

А есть ли какой-то способ подружить collapsed и загрузку информации о выбранных компонентах из .ini? Просто ведь когда число компонентов переваливает за сотню, то без "сворачивания" ну никак не обойтись =\

[Nightwishh]

Доброго времени суток, господа. Не подскажите как в ISDone 6.0 в LabelCurrFileName: TLabel; (надпись "Извлекается файл") показывалось только название извлекаемого файла в данный момент и никакого пути перед ним?

[Gnom_aka_Lexander]

Nightwishh, Ответ - использовать ExtractFileName :

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

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
begin
.................................................
LabelCurrFileName.Caption:=ExpandConstant('{cm:ExtractedFile} ')+MinimizePathName(ExtractFileName(CurrentFile),...............
...............................................
end;

А есть ли какой-то способ подружить collapsed и загрузку информации о выбранных компонентах из .ini? »

есть. после НГ накидаю, если не забуду, сейчас уже не в состоянии

[nik1967]

Gnom_aka_Lexander, тогда уж MinimizePathName не нужно.
LabelCurrFileName.Caption:=ExpandConstant('{cm:ExtractedFile} ')+ExtractFileName(CurrentFile);

[Gnom_aka_Lexander]

тогда уж MinimizePathName не нужно. »

а если имя файла настолько длинное, что не влезет в длинну лейбела?. хотя, может ты и прав нужно тогда придумать что-то типа прокрутки непомещающегося текста