在*.dpr 中写个函数,看有没。
function IsParam: Boolean;
begin
Result := FindCmdLineSwitch('Param1',['-','\','/'], True) or
FindCmdLineSwitch('Param2',['-','\','/'], True)
end;
还有是不是ParamStr[I]什么的,不知道是不是
function IsParam: Boolean;
begin
Result := FindCmdLineSwitch('Param1',['-','\','/'], True) or
FindCmdLineSwitch('Param2',['-','\','/'], True)
end;
还有是不是ParamStr[I]什么的,不知道是不是
解决方案 »
- 怎样查看到QQ空间个人日志的源代码???
- 小升5个裤叉,散散分~~~~[散分贴]
- 如何实现 字符串查找问题!
- delphi 能不能用ies构造html document对象 就像webbrowser.document对象一样.在线求助
- 要从小摄像头中抓取一幅图片,如何用DELPHI实现?
- toolbar放在controlbar中,给toolbar上的toolbutton指定一个菜单,为什么快捷键失效了?
- 我开了一个线程(MyThread0),我怎么知道它运行了多少时间。在线等候,先解决的100分
- 好人一生平安
- 动态创建窗体时如何传递参数?
- (控件使用)如何让用户随意选择数据库中的记录?
- :请教关于ADOStoredProc的参数输出问题。谢谢啊
- 关于Delphi6.0 dbExpress的一个小问题,给分!
Application.Initialize;
if IsParam then
Application.CreateForm(TForm1, Form1)
else
Application.CreateForm(TForm2, Form2);
Application.Run;
function IsParam: Boolean;
begin
Result := FindCmdLineSwitch('Param1',['-','\','/'], True) or
FindCmdLineSwitch('Param2',['-','\','/'], True)
end;begin
Application.Initialize;
if IsParam then //有参数(ParamName: Param1, Param2),则应该看的懂吧不费话了
Application.CreateForm(TForm1, Form1)
else
Application.CreateForm(TForm2, Form2);
Application.Run;
end.
Project1.exe -param1
project1.exe /param2
project1.exe \param2
都可以。
function IsParam: Boolean;
begin
Result := FindCmdLineSwitch('Param1',['-','\','/'], True) or
FindCmdLineSwitch('Param2',['-','\','/'], True)
end;begin
Application.Initialize;
if IsParam then //有参数(ParamName: Param1, Param2),则应该看的懂吧不费话了
Application.CreateForm(TForm1, Form1)
else
Application.CreateForm(TForm2, Form2);
Application.Run;
end.