怎样使可执行文件支持命令行参数输入?(50分)

  • 主题发起人 主题发起人 kingdom
  • 开始时间 开始时间
K

kingdom

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样使可执行文件支持命令行参数输入?
例如NOtePad
 
delphi的程序本来就支持命令行参数输入
有自带的全局变量
paramcount//参数个数
paramstr(1);//参数1
paramstr(2);//参数2
.....
paramstr(i);//参数i
 
同意楼上的。
程序启动时检测一下paramstr就可以了
 
delphi的程序本来就支持命令行参数输入
有自带的全局变量
paramcount//参数个数
paramstr(0);//参数1
paramstr(1);//参数2
.....
paramstr(i-1);//参数i
 

var
image1 : timage;

例如参数Pic1显示图像1,参数Pic2显示图像2:

procedure TForm1.FormActivate(Sender: TObject);
begin
if (paramcount{ 参数个数 }<1) or
(paramstr(1)='Pic1') then
image1.Picture.LoadFromFile('c:/pic1.BMP')
else
if (paramstr(1)='Pic2') then
image1.Picture.LoadFromFile('c:/pic2.BMP');
end;

paramstr(n) n=1 --- paramcount 为第n个参数,

所有参数的自符长度和不能超过255。

 
那程序执行时怎样操作?(在非dos下)
 

楼上的,什么意西 ? ? ?
 
liuyj74 说的不对:
实际上参数是从
paramstr(1); ~ paramstr(paramcount);

paramstr(0)是自己的文件名,Application.ExeName就是调用这个
 
同意楼上各位的观点,我来晚了 :(
太简单了
 
to Leebone:
那程序执行时怎样操作?(在非dos下)
在非DOS下这样操作:
一、打开Windows的运行,然后再打开文本框内填入:
YourProcName aParam,bparam等等
二、你可以在自己的程序里调它,并且传递参数啊!
三、使用WindowsAPI CreateProc传递参数。
 
to 舟舶通:
能否给我一个例子,就象实现上面wql所说的那种功能吧
 
请各位大侠给个例子吧!谢谢!
我想让程序有如下功能调用:
如: 调用函数(myapp, '不同的命令如:draw、print,close,kill等等')
请问这种功能调用该用何种api函数?
如何在myapp种响应这种功能调用?
请各位知道的大侠帮助一下我这个“笨笨的富翁”:-)谢谢!
 
paramcount//参数个数
paramstr(0);//参数1
paramstr(1);//参数2
.....
与其他人差布多
 
同意

操作可以在运行中打入 文件 参数 参数 ....
也可以打快捷方式的目标栏 加参数
 
多人接受答案了。
 
后退
顶部