5,943
社区成员
发帖
与我相关
我的任务
分享软件参数的问题
在DELphi的程序运行中，怎么给它一个参数。比如test.exe name，这种命令将name这个参数整进程序里。在线等待！
...全文
请发表友善的回复…
发表回复
belllab 2003-07-14
- 打赏
- 举报
楼上正确
root3646 2003-07-14
- 打赏
- 举报
可以结贴了
paramstr(0)//是程序自己
paramstr(0)//是程序自己
linzhisong 2003-07-14
- 打赏
- 举报
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 1 to ParamCount do
begin
if LowerCase(ParamStr(i)) = 'beep' then
Beep
elseif LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
end;
var
i: Integer;
begin
for i := 1 to ParamCount do
begin
if LowerCase(ParamStr(i)) = 'beep' then
Beep
elseif LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
end;
