ParamCount、ParamStr

//获取程序参数
//可从 Project -> Options -> Debugger -> Parameters 中输入模拟参数, 多个参数可用空格隔开
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to ParamCount do
  begin
    ListBox1.Items.Add(ParamStr(i));
  end;
end;

posted on 2009-03-11 20:38  万一  阅读(3416)  评论(2)  编辑  收藏