Использовать параметры запуска программы

Delphi , Программа и Интерфейс , Приложение своё

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
 Paramstr(1) is the first parameter 
 Paramstr(0) is the full program path 

 Paramstr(1) ist der erste ubergebene Parameter 
 Paramstr(0) Pfad der Anwendung 
}


 procedure TForm1.FormShow(Sender: TObject);
 var
   parameter: string;
 begin
   parameter := ParamStr(1);
   if parameter = '/message' then
   begin
     ShowMessage('Parameter /message.');
   end;
   if parameter = '' then
   begin
     ShowMessage('No parameter.');
   end;
 end;

Here's the translation of the provided content into Russian:

Код - часть приложения Delphi, конкретно обработчик события FormShow для формы. Событие это вызывается каждый раз, когда форма отображается.

Вот что код делает:

1. Он получает первый аргумент командной строки с помощью функции ParamStr(1).
2. Если параметр равен /message, он отображает сообщение с текстом "Параметр /message.".
3. Если параметр пустой (т.е. не был предоставлен), он отображает сообщение с текстом "Нет параметра."

Функция ParamStr возвращает значение указанного аргумента командной строки. В этом случае ParamStr(1) возвращает первый аргумент, а ParamStr(0) возвращает полный путь к программе.

Вместо проверки конкретных параметров и отображения сообщений, можно использовать switch-case для обработки различных команд. Это сделает код более гибким и легче поддерживать.

Пример:

procedure TForm1.FormShow(Sender: TObject);
var
  parameter: string;
begin
  parameter := ParamStr(1);

  case parameter of
     '/message':
      ShowMessage('Параметр /message.');
     '':
      ShowMessage('Нет параметра.');
    else
       // Обработка других параметров или неизвестных команд
      ShowMessage('Неизвестная команда: ' + parameter);
  end;
end;

В этом примере case-статements проверяет значение переменной parameter и выполняет соответствующий блок кода. Если параметр равен /message, он отображает сообщение с указанным текстом. Если параметр пустой, он отображает сообщение "Нет параметра.". Для любых других параметров он отображает сообщение с ошибкой, указывающей, что неизвестная команда была получена.

Статья описывает способ использования параметров запуска программы в Delphi, указывая на переменные Paramstr и пример программного кода на языке Pascal.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Приложение своё ::