ParamStr的用处

paramstr //全部字符串
paramcount //命令行参数个数
paramstr(i) //第几个参数。 paramstr(0)是运行的程序名称（包括全路径）

 

 paramstr 可用于EXE启动时从外部传进来的参数，比如WEB调用，一个EXE调用另外一个EXE等。

例子：

程序1开启另外一个EXE,代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  LFileName, LPara :string;
begin
  LFileName := 'd:/Project1.exe' ;

 LPara       := '/参数1 /参数2 /参数3';
  ShellExecute(handle, 'open', PChar(LFileName), pchar(LPara), nil, SW_SHOW);
end;

 以下是 Project1.exe获取参数的代码：

procedure TForm1.FormShow(Sender: TObject);
var
i :Integer;
begin
memo1.Lines.Add(ParamStr(0) );
for i:=1 to ParamCount do
begin
memo1.Lines.Add('参数' + IntToStr(i) + ParamStr(i) );
end;
end;

 

 

发表地：广州