1. Уважаемые гости и пользователи форума.
    Администрация настоятельно рекомендует не регистрировать несколько аккаунтов для одного пользователя. При выявлении наличия мультиаккаунтов будут заблокированы все учетные записи данного пользователя.
    Аккаунты, зарегистрированные на временную почту будут также заблокированы.

Вопрос Параметры запуска приложения.

Тема в разделе "Delphi", создана пользователем Timick, 23 фев 2017.

  1. Ветеран

    Регистрация:
    26 дек 2014
    Сообщения:
    315
    Симпатии:
    190
    Пол:
    Мужской
    Всем привет! Вот возник такой вопрос.

    Допустим, мы запускаем приложение (для примера возьмём MSC.exe):
    MSC.exe c -bmf=9s -dxt=2 -lzma=bt4:lc8:fb128 -maxDDSMIP=90kb tex.zip dat.msc

    Как прочитать параметры, выделенные красным и записать их в одну переменную?

    Параметров может быть больше, могут вообще отсутствовать, поэтому вот так не сделать:
    Код (Delphi):

    S := ParamStr(2) + ParamStr(3) + ParamStr(4) + ParamStr(5);
     
    Может, кто-то знает, как это реализовать?)
    Заранее благодарю за помощь!))
     
    zapsip нравится это.
  2. Модератор Модераторы

    Регистрация:
    8 июл 2015
    Сообщения:
    96
    Симпатии:
    99
    Пол:
    Мужской
    Sorry for late reply, just saw this thread :)

    You can do this like:

    Код (Text):

          if (Pos('-dxt', CmdLine) <> 0) and (Copy(ParamStr(I), 1, 2) = '-dxt') and
            (Length(ParamStr(I)) <= 12) then
          begin
            dxt:= StrToInt64(ReplaceText(ParamStr(I), '-dxt', ''))
          end;
     
    for string output, you just need to remove StrToInt64
     
    Timick нравится это.

Поделиться этой страницей