关于exe文件传递参数方法

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

关于exe文件传递参数方法

昨天同事问到,delphi里exe文件如何传递参数?

因为手头装了Delphi,PowerBuilder

以下就是代码:

Delphi:

以下内容为程序代码:

procedure TForm1.FormCreate(Sender: TObject);

var

i: Integer;

begin

for i:=1 to ParamCount do

begin

if LowerCase(ParamStr(i)) = 'beep' then

Application.MessageBox('Demo','beep',IDOK )

else if LowerCase(ParamStr(i))='exit' then

Application.Terminate;

end;

end;

PowerBuilder:

以下内容为程序代码:

string ls_cmd, ls_arg[]

integer i, li_argcnt

// Get the arguments and strip blanks

// from start and end of string

ls_cmd = Trim(CommandParm())

li_argcnt = 1

DO WHILE Len(ls_cmd) > 0

// Find the first blank

i = Pos( ls_cmd, " ")

// If no blanks (only one argument),

// set i to point to the hypothetical character

// after the end of the string

if i = 0 then i = Len(ls_cmd) + 1

// Assign the arg to the argument array.

// Number of chars copied is one less than the

// position of the space found with Pos

ls_arg[li_argcnt] = Left(ls_cmd, i - 1)

// Increment the argument count for the next loop

li_argcnt = li_argcnt + 1

// Remove the argument from the string

// so the next argument becomes first

ls_cmd = Replace(ls_cmd, 1, i, "")

LOOP

使用:

*.exe beep exit

=================================JoeCom 2004-11-20

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航