Mega Code Archive
Use program parameters
<![CDATA[
Title: use program parameters?
{
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;
]]>