文件关联设置
2011-02-07 14:25:36| 分类： VB.net2008或2010 | 标签：文件关联 |举报|字号 订阅
原理：以后缀名为.txt为例
方式一:
1、在注册表HKEY_CLASSES_ROOT键下创建一个子键，子键名为.txt然后设置其默认值为Name（Name表示你自己取的名称）
2、再在注册表HKEY_CLASSES_ROOT键下创建一个子键，子键名为NameShellOpencommand然后设置command的默认值为关联程序路径即可。
方式二:
在注册表HKEY_CLASSES_ROOT键下创建一个子键，子键名为.txtShellOpencommand然后设置command的默认值为关联程序路径即可。
方式二比较简单，但方式一比较常见，这里以方式一的原理为例。以下为示例代码：（调用时直接使用File_Associate（后缀名，关联程序路径）即可）
源代码:
Public Function File_Associate(ByVal Extion As String, ByVal FilePath As String) As Boolean '关联文件，Extion格式为“.txt”，FilePath为关联的程序路径
FilePath = Trim(FilePath)
Extion = Trim(Extion)
If FilePath.Length > 4 And Extion.Length > 2 Then
If Mid(FilePath, FilePath.Length - 3, 4).ToLower = ".exe" And Extion.StartsWith(".") Then
If My.Computer.FileSystem.FileExists(FilePath) And InStr(2, Extion, ".") = 0 Then
Dim reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot
Dim reg2 As Microsoft.Win32.RegistryKey = reg.CreateSubKey(Extion)
Extion = My.Computer.FileSystem.GetFileInfo(FilePath).Name + Extion
reg2.SetValue("", Extion)
reg2.Flush()
reg2 = reg.CreateSubKey(Extion + "ShellOpencommand")
FilePath = Chr(34) + FilePath + Chr(34) + " " + Chr(34) + "%1" + Chr(34)
reg2.SetValue("", FilePath)
reg2.Flush()
reg.Close()
Return True
End If
End If
End If
Return False
End Function
以上内容摘自：http://blog.163.com/shikang999@126/blog/static/17262489620111722025573/
通过阅读此段代码，只要读取注册表中classroot中是否有指定后缀名的节点即可确定是否有对应的文件关联。
主要代码：
if(Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(".txt")==null)
{
MessageBox("无文本的默认打开程序");
}