...Programm Parameter einsetzen?

Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch

Kategorie: System

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

 Paramstr(1) ist der erste übergebene 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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base