Tips (1541)

Tip Bewertung (2):

{
 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;