获取可执行文件、DLL文件传递的参数(100分)

  • 主题发起人 主题发起人 niit
  • 开始时间 开始时间
N

niit

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么获取可执行文件传递的参数?还有dll文件的参数?<br>谢谢!
 
procedure TForm1.FormCreate(Sender: TObject);<br><br>var<br>&nbsp; i: Integer;<br>&nbsp; for i := 1 to ParamCount do<br>&nbsp; begin<br>&nbsp; &nbsp; if LowerCase(ParamStr(i)) = 'beep' then<br>&nbsp; &nbsp; &nbsp; Beep<br>&nbsp; &nbsp; else if LowerCase(ParamStr(i)) = 'exit' then<br>&nbsp; &nbsp; &nbsp; Application.Terminate;<br>&nbsp; end;<br>end;
 
applicaiton.params
 
API: GetCommandLine<br>Delphi: CmdLine
 
applicaiton.params &nbsp; 存在吗?
 
截取传递的参数啊,<br>各位师兄能说清楚点吗?谢谢!
 
ParamStr(0)是执行文件的名称<br>ParamStr(1~n)是参数<br>ParamCount 取得参数个数
 
if ParamCount &gt;0 then //表示程序启动有参数。<br>&nbsp; for I:= 1 to ParamCount do<br>&nbsp; begin<br>&nbsp; &nbsp; S:= ParamStr(I);<br>&nbsp; &nbsp; ShowMessage(S);<br>&nbsp; end;<br>把上面的代码加到你的程序中,运行一下,就可以看到调用时传递的参数了(注意:你调用的时候一定要传递参数才能看到效果);
 
那怎么给一个我要调用的DLL传递参数呢?谢 了
 
后退
顶部