如何取得文件的实际名称(100分)

W

wuqiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-16

• #1

我在注册表里添加一项，如得双击一种类型的文件时自动运行我的程序来打开它。<br>我在注册表里这样描写:c:/mypro/mypro.exe "%1"<br>然后在程序的Create里写上:<br>if ParamStr(1)&lt;&gt;'' then<br>&nbsp; Edit1.Text :=ParamStr(1);<br>可是如果文件名长于8+3格式时，得到的值是****~1.***的格式，我想得原来的名称，请问该如何做。<br>急用，在线等待。

 

G

gzbxmcx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-16

• #2

你可以把文件名得到后存入数据库中然后在数据中查找调用，为什么一定要放到注册表里呢。<br>if opendialog1.Execute then<br>label1.Caption:=extractfilename(opendialog1.FileName)

 

江

江西的delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-16

• #3

id:593107

 

江

江西的delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-16

• #4

ID:660931

 

江

江西的delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-16

• #5

ParamStr(1)不完整<br>var strPar:string;<br>&nbsp; &nbsp; i:integer;<br>begin<br>&nbsp; if ParamCount&amp;gt;0 then<br>&nbsp; &nbsp; &nbsp;for i=1 to ParamCount do<br>&nbsp; &nbsp; &nbsp; &nbsp;strpar:=strpar+ParamStr(i);<br>&nbsp; ShowMessage(strpar);<br>end;

 

W

wuqiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-16

• #6

谢谢