请教：如何使自己的Dephi客户端Exe带参数运行？

[诸葛云长true]

如何使自己的Dephi客户端Exe带参数运行？各路大侠请多多指教！

[visual_cjiajia]

paramstr(n)啊

• 打赏
• 举报

回复 赞

[miky]

procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
for i := 1 to ParamCount do
begin
if LowerCase(ParamStr(i)) = 'beep' then
Beep
else if LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
end;

• 打赏
• 举报

回复 赞

[醉马不肖]

写一个bat文件,或者写一个url

• 打赏
• 举报

回复 赞

[楚人无衣]

ParamStr(0)为应用程序本身路径，ParamStr(1)为其后第一个参数，ParamStr(n)为...

• 打赏
• 举报

回复 赞

[ly_liuyang]

运用ParamStr和ParamCount

• 打赏
• 举报

回复 赞