在DELPHI程序中如何使用启动参数

悬赏金额（1积分＝0.1元）：0 - 提问时间：2008-6-12 11:35:50 - 阅读次数：-回答本问题若被采纳你可得积分为:0*.8=0

类似于C语言中的参数，如DOS中常　用的　COPY 参数一　　参数二的样子

问题补充｜提高悬赏｜无满意答案｜举行投票｜撤消问题 ┆ 我来回答 ┆ 评论 ┆ 举报

最佳答案

回答者：mychj - 童生≈一级 - 06-12 11:36

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

以上代码你可以参考一下噢

提问者对答案的评价：

感谢mychj的精彩解答

评论 ┆ 举报