zoukankan      html  css  js  c++  java
  • 。net 添加或获取文件关联

    文件关联设置  

    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 StringByVal FilePath As StringAs 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("无文本的默认打开程序");

    }

  • 相关阅读:
    【纪中集训】2019.08.01【NOIP提高组】模拟 A 组TJ
    有上下界的网络流 学习笔记
    平衡规划后的华丽暴力——莫队算法
    【纪中集训】2019.07.11【NOIP提高组】模拟 B 组TJ
    hdu 2063 过山车 二分匹配(匈牙利算法)
    hdu 5373 The shortest problem(杭电多校赛第七场)
    hdu 3729 I'm Telling the Truth(二分匹配_ 匈牙利算法)
    hdu 2119 Matrix(二分匹配)
    hdu 1498 50 years, 50 colors(二分匹配_匈牙利算法)
    HNU Joke with permutation (深搜dfs)
  • 原文地址:https://www.cnblogs.com/foreverme/p/3688750.html
Copyright © 2011-2022 走看看