[Johny777]

Ivan_009,
описание использования читай!

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

Код:

    /// AskForStyle(стиль по умолчанию - 0 или 1, название заголовка окна, название первого стиля, название второго стиля) возвращает 0, 1, 2
  wAnswer := AskForStyle(0,'какой стиль юзать?','Steam стиль','White стиль');
  /////////////////////////////////////////////////// 0 /////////\\\ 1 //////

  /// Функция вернёт число равное 0 - нажали на отмену, 1 - 1 + индекс выбранного айтема(0+1) = стиль 1, 2 - индекс выбранного айтема (1+1) - стиль 2

....

procedure InitializeWizard();
begin
  /// здесь общий код для двух стилей

  if wAnswer = 1 then
  begin
    /// код для первого слитя

    Cvet:='_steam';
    
    MsgBox('будет использован стиль 1', mbInformation, MB_OK);
  end else
  begin
    /// код для вторго слитя
    
    Cvet:='_white';
    
    MsgBox('будет использован стиль 2', mbInformation, MB_OK);
  end;

end;

вот упрости функцияю, а то у меня малость запутано с этим нулём
чтоб вместо стиля по умолчанию - 0 или 1 было 1 или 2
впиши в функции заместо ItemIndex := DefStyle; это ItemIndex := DefStyle - 1; и в первом параметре отправляй стиль по умолчанию (выбранный по умолчанию айтем комбобокса)
те для стиля 1 - AskForStyle(1, ...
для стиля 2 - AskForStyle(2, ...

я ввёл в ф-ю "стиль по умолчанию" тк у тебя 100% один из двух стилее более рекомендованный и чтоб он был заранее выбран при первом запуске

[Dima2009]

[*Code] Function InitializeSetup: Boolean; begin Result := True; If FileExists(ExpandConstant('{src}\file.log'))) then begin MsgBox('Отсутсвуют файлы установки!' + #13#10 + 'Установка прекращена', mbError, mb_Ok); Result := False; end else Result := True; // функция InitializeSetup - начальная, выполняется самой первой после запуска инсталлера, если она вернет false - инсталлер закроется и не пискнет end; »

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

Dima2009, скобка лишняя, две открываются и три закрываются

[Dima2009]

Dima2009, »

тут наоборот получаеться без файла устанавливаеться а с файлом нет.

[Johny777]

ут наоборот получаеться без файла устанавливаеться а с файлом нет. »

If not FileExists(ExpandConstant('{src}\file.log'))

R.i.m.s.k.y., Dima2009,
можно записать покороче (спасибо El Sanchez-у) тк FileExists возвращает булев значение которое можно напрямую передать в понимающий только эти значения в функции InitializeSetup зарезервированной переменной Result

Код:

function InitializeSetup(): Boolean;
begin
  Result := FileExists(ExpandConstant('{src}\file.log'));
  if not Result then MsgBox('Отсутсвуют файлы установки!' + #13#10 + 'Установка прекращена', mbError, mb_Ok);
end;

[Ivan_009]

Johny777, При нажатии на отмена вот такая ошибка...

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

Johny777, да можно и так, только вот бывает глюк что без явного Result := True инсталлер самозакрывается.
Поэтому во избежание я всегда явно указываю где False а где True

Dima2009, пятницо, сам понимаешь

Код:

[*Code]
Function InitializeSetup: Boolean;
begin
Result := True;
If ( not FileExists(ExpandConstant('{src}\file.log')) ) then begin
MsgBox('Отсутсвуют файлы установки!' + #13#10 + 'Установка прекращена', mbError, mb_Ok);
Result := False;
end
else Result := True;
// функция InitializeSetup - начальная, выполняется самой первой после запуска инсталлера, если она вернет false - инсталлер закроется и не пискнет
end;

[Dima2009]

R.i.m.s.k.y., Johny777 - Спасибо вам за помощь!

А реально написать код деинсталлятора как у NSIS

[Nasedkin Nikita]

Люди!!! Подскажите, пожайлуста как создать такой инсталятор

[ispolin]

вот задача

Код:

[Files]
Source: {tmp}\java6x86.exe; DestDir: {tmp}; Components: java6x86; MinVersion: 0.0,5.01; Flags: deleteafterinstall
Source: {tmp}\java6x64.exe; DestDir: {tmp}; Components: java6x64; MinVersion: 0.0,5.01; Flags: deleteafterinstall 64bit
Source: {tmp}\java7x64.exe; DestDir: {tmp}; Components: java7x64; MinVersion: 0.0,5.01; Flags: deleteafterinstall 64bit
Source: {tmp}\java7x86.exe; DestDir: {tmp}; Components: java7x86; MinVersion: 0.0,5.01; Flags: deleteafterinstall
[Run]
Filename: {tmp}\java6x86.exe; Parameters: /S; StatusMsg: Java (TM) Platform SE 6 устанавливается...Ждите...; Components: java6x86; MinVersion: 0.0,5.01
Filename: {tmp}\java6x64.exe; Parameters: /S; StatusMsg: Java (TM) Platform SE 6 устанавливается...Ждите...; Components: java6x64; MinVersion: 0.0,5.01
Filename: {tmp}\java7x64.exe; Parameters: /S; StatusMsg: Java (TM) Platform SE 7 устанавливается...Ждите...; Components: java7x64; MinVersion: 0.0,5.01
Filename: {tmp}\java7x86.exe; Parameters: /S; StatusMsg: Java (TM) Platform SE 7 устанавливается...Ждите...; Components: java7x86; MinVersion: 0.0,5.01
[Components]
Name: java6x86; Description: Java(TM) Platform SE 6 Update 35 для x86 систем; Check: IsX86; MinVersion: 0.0,5.01
Name: java6x64; Description: Java(TM) Platform SE 6 Update 35 для x64 систем; Check: IsX64; MinVersion: 0.0,5.01
Name: java7x64; Description: Java(TM) Platform SE 7 Update 7 для x64 систем; Check: IsX64; MinVersion: 0.0,5.01
Name: java7x86; Description: Java(TM) Platform SE 7 Update 7 для x86 систем; Check: IsX86; MinVersion: 0.0,5.01

после запуска программы, она автоматом определит разрядность и выведет подходящие компоненты для установки, однако выводится будут оба
Java(TM) Platform SE 6 Update 35 для x86 систем
Java(TM) Platform SE 7 Update 7 для x86 систем
и это правильно, но нужно при выборе одной версии, запретить установку другой т.е , чтобы невозможно было поставить чекбокс на обе сразу
помогите плиз