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

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;

Статья Использовать параметры запуска программы раздела Программа и Интерфейс Приложение своё может быть полезна для разработчиков на Delphi и FreePascal.

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

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