请教一个问题,其中有一个功能:点击一个文件,运行右键菜单中的程序.请问如何在程序中得到这个文件的路径和文件名称的?(100分)

B

BCB_FANS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #21

另：xuziling20的方式也是一种方法，可以考虑。
-------------------------------------------
To : xuziling20
最近CSDN的速度比蜗牛还要慢，只要转移一下阵地^v^

 

L

LiZhongYu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #22

照huzzz的方法先再注册表加好选项. 我的program:
program txt2html;
uses SysUtils,Dialogs;
var
sFilename:String;
procedure loadFile(sFile:string);
begin
if not fileexists(sFile) then
exit;
try
//cds1.LoadFromFile(sFile);
showmessage(sFile);
except
showmessage('载入数据出错。')
end;
end;

begin
sFilename:=paramstr(1);
loadFile(sFileName);
end.

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #23

《Delphi 5 开发人员指南》第24章 扩展Windows外壳 。可能对你有用。

 

H

hamsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #24

同意！

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #25

>>但是用paramstr(1)得到的只是内容为空。
我这里不会空啊，难道是你的操作系统跟我的不一样？这种写法我是从别处学来的，在
WIN98、2000、XP下经常使用效果很好，代码也很简单，应该是可行的。LiZhongYu的程
序应该也可以。DEMO就不用发了，程序里只要调用paramstr(1)就可以获得，如果实在不
行我也没办法了，你就试试复杂的SHELL编程吧。

 

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #26

问题已经解决，看来实现的方法还是很多的。通过这个问题我学到很多东东。
非常感谢大家的帮忙。
我是用crane的方法解决的,getcommandline一个函数即可完成。
因此我将另外给100分，
其他兄弟的回答也非常好，使我不仅仅解决这个问题，而能通过这个问题学到其他更多的
知识。我想这正是DFW的宗旨。
谢谢大家

 

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #27

多人接受答案了。

 

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #28

crane请到这拿分
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1259041