请问如何使delphi编写的程序接受命令行参数(100分)

B

big_jiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #1

; 我用delphi写了一个打开图象文件的程序，现在希望直接双击图象文件图标
既能将程序启动，并是程序打开该图象文件。
我用选择文件打开方式的方法试了试，结果是把应用程序启动，但没有将
图象文件打开。
现请高手指点。

 

W

wint

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #2

ParamStr function
ParamCount function
CmdLine variable
。。。。。。。。。。。。。。

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #3

象你那样的话，还得把文件关联到你的程序。


呵呵， 不知道 CmdLine

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #4

一执行就打开OpenFileDialog多好,省得再输入路径和文件名了!?

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #5

1. 先Shift - 右键 - 打开方式 - 选中"始终用..."
来设置文件关联：
2. 在你的程序的主窗口中加入下面的代码：
procedure TForm1.FormActivate(Sender: TObject);
var
FileName: String;
begin
if ParamCount > 0 then
begin
FileName := Copy(CmdLine, 2, Length(CmdLine));
FileName := Copy(FileName, Pos('"', FileName) + 2, Length(FileName));
DoOpenFile(FileName);
end;
end;

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #6

修改为这样更好:
procedure TForm1.FormActivate(Sender: TObject);
begin
if (ParamCount > 0) and FileExists(ParamStr(1)) then
openafile(ParamStr(1));
end;

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-08

• #7

to beta:
呵呵， 一般不在命令行下运行你的程序，都是直接点的，
所以。。。

 

C

Croco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-08

• #8

beta>
没有考虑文件路径带空格的情况吧。

 

B

big_jiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-08

• #9

;beta 的方法很好用

 

B

big_jiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-10

• #10

多人接受答案了。