Введите условия поиска Отправить форму поиска
	Web www.delphisources.ru

Оформил: 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;