Имя пользователя:
Пароль:
 

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

Новый участник


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

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


R.i.m.s.k.y.,

Код: Выделить весь код
  for i:=0 to ParamCount do begin
    s:= ParamStr(i);
    MsgBox(IntToStr(i)+#10#13+s, mbInformation, MB_OK);
  	if (Lowercase(ParamStr(i))='/silent') or (Lowercase(ParamStr(i))='/verysilent') then silent := 1 else silent := 0;
  end;
  
  if silent=1 then
    for i:= 1 to ParamCount do
      if (Lowercase(ParamStr(i))='/haaliavi') and haaliexists then MsgBox('haaliexists', mbInformation, MB_OK);;
      //WizardForm.ComponentsList.Checked[WizardForm.ComponentsList.Items.IndexOf('{#haaliaviDesc}')]:=True;

Отправлено: 12:51, 17-09-2010 | #2328