怎样使用命令行参数,ParamCount,ParamStr(),参数是如何加进来的,我想加三个参数。请详细举例说明。

解决方案 »

  1.   

    procedure TForm1.FormCreate(Sender: TObject);var
      i: Integer;
      for i := 1 to ParamCount do
      begin
        if LowerCase(ParamStr(i)) = 'beep' then
          Beep
        else if LowerCase(ParamStr(i)) = 'exit' then
          Application.Terminate;
      end;
    end;
      

  2.   

    命令行  c:>myapp  str1 str2 str3
     myapp后面分别为 ParamStr[1]    ParamStr[2]    ParamStr[3]             
    (代理服务器有问题,不能发长的留言,请原谅) 
    --------------------------------------
    看!
    那支正飞向太阳的蛾子.....
    就是我!
    --------------------------------------
      

  3.   

    同意 firetoucher(风焱) 的说法,命令行参数就是在dos(或者命令行提示符)下执行文件时跟在
    文件名後的字符串。
    在程序语言中,paramstr用来取得命令行参数。不过一定要用()而不要用[]。
    其中paramstr(0)表示文件的全路径。
    比如载主窗体的Create事件中加入以下代码:
      if paramstr(1)<>'' then
      self.caption:=paramstr(1);
    运行程序:
      程序名 Successful 
    之后,主窗体的标题变成  Successful