如何使你的程序同文件扩展名建立关联？...

如何使你的程序同文件扩展名建立关联？  



如果你的程序是同文件操作有关，比如说你自定义了一个文件类型，用你的程序才能打开它并查看其中的内容。你有没有想过在你的文件同你的程序之间建立关联，这样不必每次都要先启动程序，再打开文件了。用户可直接点选你的文件，而不必每次都要面对一个“打开方式”对话框。其实要做到这一点，只须调用API函数就行了。下面的代码向你演示如何实现这一功能。


首先在窗体的通用声明段中加入下面的代码：


      Option Explicit

      Private Declare Function RegCreateKey Lib "advapi32.dll" Alias  "RegCreateKeyA" (ByVal hKey As Long, _
                        ByVal lpSubKey As String,  phkResult As Long) As Long
      Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, _
                 ByVal lpSubKey As String,  ByVal dwType As Long,  ByVal lpData As String,  ByVal cbData As Long) As Long

      ' Return codes from Registration functions.
      Const ERROR_SUCCESS = 0&
      Const ERROR_BADDB = 1&
      Const ERROR_BADKEY = 2&
      Const ERROR_CANTOPEN = 3&
      Const ERROR_CANTREAD = 4&
      Const ERROR_CANTWRITE = 5&
      Const ERROR_OUTOFMEMORY = 6&
      Const ERROR_INVALID_PARAMETER = 7&
      Const ERROR_ACCESS_DENIED = 8&

      Private Const HKEY_CLASSES_ROOT = &H80000000
      Private Const MAX_PATH = 260&