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

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

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

Ветеран


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

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


Код: Выделить весь код
[*C*ode]
var: www: integer; // переменную объявляем за пределами функций/процедур, так она будет доступна всем

Function InitializeSetup: Boolean;
var st :string; i: Integer; 
begin
  www := -1; // три значения: -1 - не изменялось, 0 - нет, 1 - да
  for i:=2 to ParamCount do begin
    st := Lowercase(ParamStr(i));
    Result := True;
    case st of
      Lowercase('/www_on') : www := 1;
      Lowercase('/www_off') : www := 0;
    end;
    Result := True; //а то почему-то Result "фолсится" и дистр закрывается не пикнув
  end; //case
end; //InitializeSetup

Function param_www_on: Boolean;
begin
if (www = 1) then Result := True else Result := False;
end;

[Files]
Source: nircmd.exe; DestDir: {app}\Utilities\; Flags: ignoreversion noencryption; Check: param_www_on

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

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

Отправлено: 08:44, 28-04-2011 | #1456