怎样在delphi用程序后加参数确定所启动的窗口？(30分)

O

oneeye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-15

• #1

如：
project1.exe 启动form1
project1.exe /v 启动form2;

 

Y

yousoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-15

• #2

program app;

uses
Forms,
...........

{$R *.RES}
var
i: Integer;
begin
Application.Initialize;
if (ParamCount>=1) and (ParamStr(1) = '/v') then
Application.CreateForm(Tform1, form2)
else
Application.CreateForm(Tform1, form2);
Application.Run;
end.

 

Y

yousoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-15

• #3

上面搞错了！！
if (ParamCount>=1) and (ParamStr(1) = '/v') then
Application.CreateForm(Tform2, form2)
else
Application.CreateForm(Tform1, form1);

 

O

oneeye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-15

• #4

哎呀！我原来也是这么写的，不过我把options里的auto-create 全改成 available所以
老出错。现在行了！[]

 

O

oneeye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-15

• #5

还有，这里回答问题确实比csdn快多了。