请问如何获取本.exe后的参数？？ 100 献 上 ！！(100分)

A

aolong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-01

• #1

本人用DELPHI生成一个程序ABC.EXE，要求此程序自动获知ABC.EXE后的参数，
请赐教！！！

 

W

wyjkmsc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-01

• #2

用ParamCount和ParamStr()函数即可，例子：
procedure TForm1.Button1Click(Sender:TObject);
var
I: Integer;
begin
Y := 10;
for I := 1 to ParamCount do
ShowMessage(ParamStr(I));
end;

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-01

• #3

你想知道甚?!

 

H

hsw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-01

• #4

使用 ParamStr function
function ParamStr(Index: Integer): string;

Description

ParamStr returns the parameter from the command line that corresponds to Index, or an empty string if Index is greater than ParamCount. For example, an Index value of 2 returns the second command-line parameter.

ParamStr(0) returns the path and file name of the executing program (for example, C:/TEST/MYPROG.EXE).

Note: Use double quotes to wrap multiple words as one parameter (such as long file names containing spaces)

 

H

hsw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-01

• #5

有个例子：

procedure TForm1.FormCreate(Sender: TObject);

var
i: Integer;
for i := 0 to ParamCount ?1 do
begin
if LowerCase(ParamStr(i)) = 'beep' then
Beep(10000,1000)
else if (LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
end;

 

H

hsw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-01

• #6

TMD,又慢了一步，真倒霉，明明打开时 ，还没有人回答
转眼，已经有两个人回答了！！！！！！
附：
Application.ParamStr 和Form1.ParamStr还不一样，

 

A

aolong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-01

• #7

现已解决，多谢各位！！！

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-01

• #8

现已解决，多谢各位！！！
没分了。

 

H

hsw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-01

• #9

给分啊～

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-04

• #10

多人接受答案了。