在运行程序时传入参数（Delphi）

  
    procedure TForm1.FormShow(Sender: TObject);
var
  i:Integer;
begin
  //当前程序的完整路径（包括文件名）
  lbl1.Caption:=ParamStr(0) + #13;
  //运行此程序时传入的参数
  for i:=1 to ParamCount do
  lbl1.Caption:=lbl1.Caption + ParamStr(i) + #13;
end;