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

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

Ветеран


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

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


Цитата vahe-91:
а если запустить с ключом /z, то будет тоже самое что и без него »
Если вы просто скопировали из предыдущего поста, то естественно.
Я лишь подкорректировал код R.i.m.s.k.y., чтоб было понятней:
Код: Выделить весь код
var
  paramZ: Boolean;

function InitializeSetup(): Boolean;
var
  i: Integer;
  st: string;
begin
  Result := True;
  for i := 2 to ParamCount do
    begin
      st := Lowercase(ParamStr(i));
      StringChangeEx(st, '/', '', True);
      StringChangeEx(st, '\', '', True);
      StringChangeEx(st, '-', '', True);
      paramZ := st = 'z';
    end;
  if paramZ then
    MsgBox('Ключ "z", присутствует в командной строке.', mbInformation, MB_OK);
end;

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.


Отправлено: 11:05, 07-01-2011 | #406