如何使delphi程序带参数运行?(50分)

  • 主题发起人 主题发起人 SunGod
  • 开始时间 开始时间
S

SunGod

Unregistered / Unconfirmed
GUEST, unregistred user!
因为需要我想让程序后带两个参数并获得两段字符,例:<br><br>123.exe /n:abc.txt /t:abc.mb<br><br>如何在程序中得到/n和/t的参数?是否要使用API?当然如果你们有其他参数格式实现也行!<br>请指教!
 
paramcount函数 返回在命令行上传递给程序的参数数量 <br>paramstr函数 返回指定的命令行参数 <br>
 
用Paramcount取得参数的个数,然后用<br>for i:=1 to paramcount-1 do<br>&nbsp; //paramstr(i)就是各个参数<br><br>从别处拉来的.From Lera<br>--<br>以下便是一个完整的程序,也许是最小的程序了.<br>program ScrStarter;<br><br>uses<br>&nbsp; windows,sysutils;<br><br>{$R *.RES}<br>var<br>I:integer;<br>msgstr:string;<br>begin<br>msgstr:='';<br>for I:=0 to paramcount do<br>msgStr:=Msgstr+'第'+inttostr(i)+'参数: '+paramstr(i)+#13#10;<br>messagebox(0,pchar(msgStr),pchar('Show All the Starting Params. --- by Lera'),mb_OK);<br>&nbsp;end.
 
来晚一步,都让楼上答完了。 :)
 
后退
顶部