如何传递文件名，UP有分

Question

ExtractFilePath(ParamStr(0))+'文件名';返回一个字符串，为文件路径名

Answer 1

HKEY_CLASSES_ROOT\txtfile\shell\open\command
@="notepad.exe" %1

Answer 2

然后可以用ShellExecute(handle,nil,pcha(这里为刚才返回的字符串),nil,nil,sw_shownormal)；

Answer 3

我知道你的意思了，这和注册表及文件类型有关，就是文件类型的注册。不知道是吗？要不就只有采用hook了，不过就是这样也很麻烦啊。是不不怎么看的懂题啊

Answer 4

可以给分么？
我不看回复了
qq45494732不明白q我。

Answer 5

其实我这是一个报表浏览器，浏览器打开报表前要装入报表文件：
frReport1.loadfromfile(filename)
问题是我要求用户点击报表文件，能把该文件名传递给filename,这样就可以自动打开报表了，当然和文件注册类型有关，但这可以在第一次点击该类型文件时，让操作系统自己注册。

Answer 6

我有6000多分可用分，可以另开贴加分。
这是我客户的要求，本来这个只要OPENDIALOG让用户选一下文件就可以了，可是客户嫌麻烦，非要自动能打开文件，否则...
请高手帮忙了。

Answer 7

我也许明白你的意思，
你应该有自己的文件格式，并指定打开方式（指定用你的程序打开某后缀文件）
，这样，双击被把开文件时，会运行你的程序，你在程序中可以通过
Paramstr(1)来取得你双击的文件名。
不过我还没有试过，如果不行就当我没有说过，如果这不是你的意思则当我没有说过

Answer 8

如果只是设置默认得系统文件关联属性的话修改注册表就行了。打开class_root研究一下一个关联需要哪些选项加进去就好。

Answer 9

不会是一个挂钩子的程序吧，想把别人的磁盘上面的程序拷贝到自己的硬盘上？www.longteng.org  挚软网络
我的OICQ:5008022
我的EMAIL:[email protected]
发邮件给我，可以不定期得到源程序
不全部是原创，但很多是针对解决问
题以后完全可以运行的源程序。

Answer 10

to:laisxy(赖)
不好意思，刚才出去了，您说的完全对。但我不知道怎么用Paramstr(1)，能给代码吗，如果行我另开帖送100分。