怎样使用命令行参数

[lubaby726]

怎样使用命令行参数，ParamCount,ParamStr(),参数是如何加进来的，我想加三个参数。请详细举例说明。

[firetoucher]

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;

[firetoucher]

命令行 c:>myapp str1 str2 str3
myapp后面分别为 ParamStr[1] ParamStr[2] ParamStr[3]
(代理服务器有问题,不能发长的留言,请原谅)
--------------------------------------
看！
那支正飞向太阳的蛾子.....
就是我！
--------------------------------------

[mouseingrief]

同意 firetoucher(风焱) 的说法，命令行参数就是在dos（或者命令行提示符）下执行文件时跟在
文件名後的字符串。
在程序语言中，paramstr用来取得命令行参数。不过一定要用()而不要用[]。
其中paramstr(0)表示文件的全路径。
比如载主窗体的Create事件中加入以下代码：
if paramstr(1)<>'' then
self.caption:=paramstr(1);
运行程序：
程序名 Successful
之后，主窗体的标题变成 Successful