[Johny777]

smile7,

Как удалить окошко создания ярлыков (SelectProgramGroupPage) »

удали секцию [Icons], ярлыки можно (я б сказал нужно) создать через функцию CreateShellLink, только их не будет в логе деинсталятора, а потому их нужно прибрать вручную при удалении

сразу после нажатия кнопки Далее с окна выбора компонентов приступить к установке »

для этого нужно вырубить страницу готовности и не забыть присвоить кнопке Далее надпись Установить

И как заставить секцию [INI] обходить атрибут "только для чтения" редактируемого файла (win7, файлы в {userdocs}) »

через код убрать у файла атрибут, внести значение, вернуть атрибут на место
короче вот всё выше описанное в виде кода-примера:

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
DisableReadyPage=yes

[Components]
Name: a; Description: a
Name: b; Description: b

[UninstallDelete]
Type: files; Name: "{userdesktop}\Half-Life 2.lnk"


[code]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

function SetFileAttributes(lpFileName: String; dwFileAttributes: DWORD): BOOL; external 'SetFileAttributes{#A}@kernel32.dll stdcall';
function GetFileAttributes(lpFileName: String): DWORD; external 'GetFileAttributes{#A}@kernel32.dll stdcall';


procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpSelectComponents: WizardForm.NextButton.Caption := SetupMessage(msgButtonInstall);
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    // создадим ярлык на рабочем столе текущего пользователя
    CreateShellLink(ExpandConstant('{userdesktop}\Half-Life 2.lnk'), /// где сохранить ярлык (описание кнстант путей в справке)
    ExpandConstant('Запустить...'), /// описание ярлыка (в свойствах, при наведении мыши)
    ExpandConstant('{app}\common\half-life 2\hl2.exe'),
    '-steam -game hl2 -appid 220', /// параметры запуска
    ExpandConstant('{app}\common\half-life 2'), // рабочая папка
    ExpandConstant('{app}\common\half-life 2\hl2.ico'), // путь к файлу значка (или к экзешнику)
    0, // индекс иконки
    SW_SHOWNORMAL); // флаг
  
    try
      if (GetFileAttributes('C:\setup\Selfish.ini') and FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY then // если у файла есть атрибут только чтение то
      if SetFileAttributes('C:\setup\Selfish.ini', FILE_ATTRIBUTE_NORMAL) then // снимаем атрибут
      if (GetFileAttributes('C:\setup\Selfish.ini') and FILE_ATTRIBUTE_NORMAL) = FILE_ATTRIBUTE_NORMAL then
       // вносим значение ини
      SetIniString('MySettings', /// имя секции ини
       'Select_Half_Life_2', /// имя ключа
       '', // значение
       'C:\setup\Selfish.ini'); // путь к файлу
    finally
      SetFileAttributes('C:\setup\Selfish.ini', FILE_ATTRIBUTE_READONLY);
    end;
  end;
end;

[Mailchik]

удали секцию [Icons], ярлыки можно (я б сказал нужно) создать через функцию CreateShellLink, только их не будет в логе деинсталятора, а потому их нужно прибрать вручную при удалении »

с чего бы нужно?
это конечно хорошо, что Вы стараетесь всё сделать через код, знаете язык и прочее, но в данном случае вы предлагаете человеку создавать велосипед.. Инно - это очень мощный инструмент именно для создания инсталляторов, поэтому и автор этого прекрасного инструмента облегчил жизнь людям, которые не сильны в языке objectpascal, создав секции, константы и тд и тп... И если вопрос решается стандартными средствами Инно, так лучше в код не лезть. Лично моё мнение.

Как удалить окошко создания ярлыков (SelectProgramGroupPage) »

прописать DisableProgramGroupPage=true в секции [Setup]

[LinkOFF]

Добрый вечер. Какое значение нужно поставить в секции Flags, чтобы на компоненте уже стоял флажок?

[R.i.m.s.k.y.]

LinkOFF,

Код:

[Types]

Name: full; Description: Full installation; Flags: iscustom

[Components]

Name: app; Description: описаловка; Flags: disablenouninstallwarning ; Types: full

[Raf-9600]

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

[Johny777]

Raf-9600, конечно, сам так делаю
вот пример
создай рядом с экзешником инсталла ини файл следующего содержания

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

Код:

[components]
a=yes
b=
c=
d=

код-пример:

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Components]
Name: a; Description: a
Name: b; Description: b
Name: c; Description: c
Name: d; Description: d

[  code]
procedure InitializeWizard();
begin
  if FileExists(ExpandConstant('{src}\PreSelector.ini')) then
  with WizardForm.ComponentsList do
  begin
    Checked[Items.IndexOf('a')] := GetIniString('Components', 'a', '', ExpandConstant('{src}\PreSelector.ini')) = 'yes';
    /// отмечаем компонент по индкесу
    /// индекс получаем методом IndexOf('a') Items, который является TStrings;
    /// остальные компонеты по аналогии
  end;
end;

если ини большой, то его лучше парсить классной функцией El Sanchez-а

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[  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;
    i: Integer;
    res: String;
begin
    //парсим ini-файл
    iFile := ParseIniFile('d:\Program Files (x86)\Inno Setup 5\projects\johny777\test.ini');

    //пример 1 - выводим на экран содержимое ini-файла, используя созданную переменную iFile
    for i := 0 to GetArrayLength(iFile)-1 do
        res := res + '[' + iFile[i].Section + ']' + #13#10 + iFile[i].Entries.Text;
    MsgBox(res, mbInformation, MB_OK);

    //пример 2 - выводим на экран значение параметра name34 секции section2, используя созданную переменную iFile и свою функцию GetIniValue
    MsgBox(GetIniValue('section2', 'name34', '', iFile), mbInformation, MB_OK);
end;

[Raf-9600]

Johny777, а в чем принципиальное отличие между твоим кодом и махиной от El Sanchez-а?

[Johny777]

Raf-9600, в скорости
смотри
функция GetIniString('Components', 'a', '', ExpandConstant('{src}\PreSelector.ini')) = 'yes'; при каждом вызове обращается к файлу PreSelector.ini на жёстком диске
если вызовов 2, то ты и глазом моргнуть не успеешь как они пройдут, но если в ини файле 4 секции и 20-30 ключей, то скорость падает - не заметно для глаза, но когда оптимизация везде по мелочам хромает, то это уже серьёзно
поэтому функция El Sanchez-а загружает весь ини файл, в динамичный массив записей, после чего оттуда с учётом особенностей ини файла как такового заполняется структура TIniFile, те 1 вызов с жёсткого диска, а все дальнейшие - чтение из оперативки, что несоизмеримо быстрее
короче вот отсюда пару странниц прочитай http://forum.oszone.net/thread-235078-92.html
с 919 поста

[Raf-9600]

Johny777, Благодарю за пояснение, у меня как рас более сотни компонентов %)
Остался только мелкий вопрос, как можно снять галочку из компонента в зависимости от параметров в .ini? Т.е. чтобы допустим если в ini

Код:

[Game]
Voice=false

То галочка с компонента "Озвучка" снималась.

[Johny777]

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

у меня как рас более сотни компонентов »

тогда грузи в оперативку