这个问题没几个富翁能解决 (50分)

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-10

• #1

怎样实现文件关联：即双击*.XXX的文件自动运行我的程序（这点可通过改注册
表我已经做到），然后将被双击的文件的全路径作为参数传给我的应用程序？
[]

 

G

genue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-10

• #2

在你修改了注册表以后，在你的注册表键值后面加上一个空格，然后再加上%s,%s就可以了。

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-11

• #3

能详细一点吗，另程序中应怎样接收此参数

 

A

aizb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-11

• #4

就要通过程序改注册表,我的主页上有相关代码,不过需要注意的是在注册表中传给程序的
参数那个%1,有引号引住和没有引号是不同的,如果你的文件所在路径是长文件名,就必须
要有引号才行,否则程序将无法取出参数的全文件名!

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-11

• #5

您的主页，烦请一写

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-12

• #6

注册表中是这样的
HKEY_CLASSES_ROOT/RealPlayer.RM.6/shell/open/command
默认="e:/realplay/RealPlay.exe" /m application/vnd.rn-realmedia %1
e:/realplay/RealPlay.exe是我的程序。
这样打开＊.rm格式文件时就调用我的程序。
现在问题是怎样将目标的全路径传到程序中来。

 

K

kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-12

• #7

GetFullPath API

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-12

• #8

关键是怎样获得参数

 

M

maming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-12

• #9

用cmdline就可以搞定了。

 

X

XiaoYi_Bill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-12

• #10

：）
就是楼上说得

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-12

• #11

在革命同志的指引下，我终于成功了:
procedure TForm1.FormActivate(Sender: TObject);
var
i: Integer;
begin
for i := 1 to ParamCount do
if i=3 then
begin
ComboBoxUrl.text:=ParamStr(i);
realaudio1.SetSource(ComboBoxUrl.Text) ;
realaudio1.DoPlay;
end;
end;
多谢，分今天就发。

 

我

我爱PASCAL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-12

• #12

多人接受答案了。

 

A

aizb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-12

• #13

喝喝!对不起,我的主页是http://www.aidelphi.com