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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

{/codecitation}

Добавить комментарий