Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для R.i.m.s.k.y.

Ветеран


Сообщения: 1640
Благодарности: 536

Профиль | Отправить PM | Цитировать


Цитата semiono:
Мне нужен код чтобы разрешить установку части контента, но только при помощи ключа. »
ну примерно так:
Код: Выделить весь код
[Files]
Check: Check_X1; Source: x1files; DestDir: {app}\; Flags: ignoreversion noencryption
Check: Check_X2; Source: x2files; DestDir: {app}\; Flags: ignoreversion noencryption

[*C*ODE]
var x1, x2 : boolean;

Function Check_X1() : boolean;
begin
If x1 = true then Result := True else Result := False;
end;

Function Check_X2() : boolean;
begin
If x2 = true then Result := True else Result := False;
end;

Function InitializeSetup: Boolean;
var
i : integer; st : string;
Begin
  x1 := false; x2 := false;
  for i:=2 to ParamCount do begin
    st := Lowercase(ParamStr(i));
    Result := True;
    case st of
      Lowercase('/x1')   : x1 := true;
      Lowercase('/x2')   : x2 := true;
    end; //case
    Result := True;
  end;//for
end;//InitializeSetup
если параметров Х1/Х2 много, имеет смысл загнать проерку в одну спецфункцию Check_X где в цикле проверять какие из них назадавали в комстроке, но тут в моем мозгу происходит переполнение стека и родить такую я не могу, даже себе

по поводу компонентов - инно поддерживает сам параметр /COMPONENTS="a,b"
читай в справке Setup Command Line Parameters

-------
Хороший установщик тот, которого не замечаешь
Оформление в инно пустая трата времени: толку мало, головняка много, а ошибок истчо больше!


Последний раз редактировалось R.i.m.s.k.y., 14-12-2011 в 15:45.

Это сообщение посчитали полезным следующие участники:

Отправлено: 07:43, 14-12-2011 | #376