|
有关文件关联的问题
再给你一段注册文件类型的代码
Public Sub associate(EXT As String, FileType As String, FileName As String) '创建文件关联
On Error Resume Next
Dim b As Object
Set b = CreateObject("wscript.shell")
b.regwrite "HKCR\" & EXT & "\", FileType
b.regwrite "HKCR\" & FileType & "\", "MY file"
b.regwrite "HKCR\" & FileType & "\DefaultIcon\", FileName
b.regwrite "HKCR\" & FileType & "\shell\open\command\", FileName & " %L"
b.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & EXT & "\Application"
b.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & EXT & "\Application", FileName
b.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & EXT & "\OpenWithList\"
b.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\" & EXT & "\OpenWithList\a", FileName
End Sub
调用:
associate ".lu", "SystemFile", 打开文件的应用程序 '建立文件关联
这里是在注册表中修改文件类型的方法
我知道当点击一个html文件时，浏览器就会自动打开，或者是点击一个doc文件，Word就会运行。有没有想过当用户点击你自己定义文件类型时，你的程序就会自动启动呢？其实想做到这点很简单，只须对注册表做点手脚就行了。
每一个文件类型的信息被保存在注册表中的 'HKEY_CLASSES_ROOT'下面。假设我们自定义的文件类型的后缀为.hyp，文件名为Test_File_Hype (中间不能有空格).
首先在HKEY_CLASSES_ROOT下创建 .hyp
HKEY_CLASSES_ROOT\.hyp
将[默认]键值改为"Test_File_Hype"。然后在HKEY_CLASSES_ROOT下添加主键 Test_File_Hype
HKEY_CLASSES_ROOT\Test_File_Hype
按照下面的路径添加新的主键
HKEY_CLASSES_ROOT\Test_File_Hype\Shell
HKEY_CLASSES_ROOT\Test_File_Hype\Shell\Open
HKEY_CLASSES_ROOT\Test_File_Hype\Shell\Open\Command
将下面的字符作为Command的键值
your application path.exe %1
(例如 C:\WINDOWS\HYP\HYP.EXE %1)
或许你还想为自己的文件类型加上同自己的执行文件一样的图标，很简单，照下面的方法添加就行了。
HKEY_CLASSES_ROOT\Test_File_Hype\DefaultIcon
输入键值：
your application path.EXE,0
后面的零表示文件的图标同程序的主图标一致，如果你的程序有很多图标，换一换数字就可改变文件显示的图标了。
原文地址：http://blog.yesky.com/blog/jfzlnyf/archive/2005/02/11/73591.aspx
2006-1-19 17:11:14
Posted by jser | 阅读全文() | 回复(0) | 引用通告() | 编辑
| 