DELHPI 运行=>参数=>parameters相关问题(50分)

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

ntjrr

Unregistered / Unconfirmed
GUEST, unregistred user!
我用到一段代码主要是检测程序重复运行的.但在编绎时就会提示重复运行了.有人建议用if (ParamCount=0) then begin ......end 这样中编绎时不会执行,在单独运行时才会执行,前提是要在DELHPI 运行=>参数=>parameters框中输入任意内容,我现在不太了解parameters本来是起什么作用的,如果输入了内容会不会对编绎的软件有什么影响,比如运行变慢,或者容易出错之类的问题.
 
当然不会出什么问题,paramstr是用来外界向应用程序传参数用的
不会影响速度什么的,在你调试的时候可以这样加一句,当你编译好需要发布的时候你在将这句判断语句注释掉即可,没有任何影响
 
parameters是对应用程序的可执行文件指定执行参数,用来在应用程序里做一些控制.
如果应用程序里并没有提取此参数的代码,那么加这个参数起不到任何作用.
此参数应该不影响程序编译
这里加的参数就象执行应用程序时指定参数起同样的效果,如执行时指定参数:
project1.exe 0,1,'字串参数'
 
if (ParamCount=0) then //如果填入了参数,那么paramcount就不等于0,也就是编绎时不会执行,但独立运行时就能执行了,我要的效果已经达到,如果写入任意参数,而不影响到其它问题,我就准备这样做了
begin
handle:=findwindow(classname,nil);{查找是否有此类的窗体}
if handle<>0 then {不为0则程序已运行}
begin
messagebox(0,'该程序已经有一个在运行中!','运行',0);{提示程序已运行}
halt; {退出程序}
end;
end;
 
多人接受答案了。
 
后退
顶部