• Home
 · 
• Registry
 · 
• Create a file association for your application (Works in Windows 95/98/NT/2000/ME)

Create a file association for your application (Works in Windows 95/98/NT/2000/ME)

Create a file association so files with a give extension will be automatically opened by your application

Inputs
extension, application name, application location

Assumes
Usage: CreateAssociation "xxx", "MyApp", "c:\MyApp.exe" the "xxx" is the extension, the "MyApp" is the name of your application, the "c:\MyApp.exe" is the location of your application

API Declarations
Public Const REG_SZ As Long = &H1
Public Const REG_DWORD As Long = &H4
Public Const HKEY_CLASSES_ROOT As Long = &H80000000
Public Const HKEY_CURRENT_USER As Long = &H80000001
Public Const HKEY_LOCAL_MACHINE As Long = &H80000002
Public Const HKEY_USERS As Long = &H80000003
Public Const ERROR_SUCCESS As Long = 0
Public Const ERROR_BADDB As Long = 1009
Public Const ERROR_BADKEY As Long = 1010
Public Const ERROR_CANTOPEN As Long = 1011
Public Const ERROR_CANTREAD As Long = 1012
Public Const ERROR_CANTWRITE As Long = 1013
Public Const ERROR_OUTOFMEMORY As Long = 14
Public Const ERROR_INVALID_PARAMETER As Long = 87
Public Const ERROR_ACCESS_DENIED As Long = 5
Public Const ERROR_MORE_DATA As Long = 234
Public Const ERROR_NO_MORE_ITEMS As Long = 259
Public Const KEY_ALL_ACCESS As Long= &H3F
Public Const REG_OPTION_NON_VOLATILE As Long = 0
Public Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long
Public Declare Function RegCreateKeyEx _
Lib "advapi32.dll" Alias "RegCreateKeyExA" _
(ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal Reserved As Long, _
ByVal lpClass As String, _
ByVal dwOptions As Long, _
ByVal samDesired As Long, _
ByVal lpSecurityAttributes As Long, _
phkResult As Long, _
lpdwDisposition As Long) As Long
Public Declare Function RegOpenKeyEx _
Lib "advapi32.dll" Alias "RegOpenKeyExA" _
(ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal ulOptions As Long, _
ByVal samDesired As Long, _
phkResult As Long) As Long
Public Declare Function RegSetValueExString _
Lib "advapi32.dll" Alias "RegSetValueExA" _
(ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal Reserved As Long, _
ByVal dwType As Long, _
ByVal lpValue As String, _
ByVal cbData As Long) As Long
Public Declare Function RegSetValueExLong _
Lib "advapi32.dll" Alias "RegSetValueExA" _
(ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal Reserved As Long, _
ByVal dwType As Long, _
lpValue As Long, _
ByVal cbData As Long) As Long


Rate Create a file association for your application (Works in Windows 95/98/NT/2000/ME)

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

Public Sub CreateAssociation(sExtension as String, sApplication as String, sAppPath as String)
  Dim sPath As String
  CreateNewKey "." & sExtension, HKEY_CLASSES_ROOT
  SetKeyValue "." & sExtension, "", sApplication & ".Document", REG_SZ
  CreateNewKey sApplication & ".Document\shell\open\command", HKEY_CLASSES_ROOT
  SetKeyValue sApplication & ".Document", "", sApplication & " Document", REG_SZ
  sPath = sAppPath & " %1"
  SetKeyValue sApplication & ".Document\shell\open\command", "", sPath, REG_SZ
  CreateNewKey "Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\." _
    & sExtension, HKEY_CURRENT_USER
  SetKeyValue2 "Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\." _
    & sExtension, "Application", sAppExe, REG_SZ
  CreateNewKey "Applications\" & sAppExe & "\shell\open\command", HKEY_CLASSES_ROOT
  SetKeyValue "Applications\" & sAppExe & "\shell\open\command", "", sPath, REG_SZ
End Sub

Public Function SetValueEx(ByVal hKey As Long, _
             sValueName As String, _
             lType As Long, _
             vValue As Variant) As Long
  Dim nValue As Long
  Dim sValue As String
  Select Case lType
  Case REG_SZ
   sValue = vValue & Chr$(0)
   SetValueEx = RegSetValueExString(hKey, _
                   sValueName, _
                   0&, _
                   lType, _
                   sValue, _
                   Len(sValue))
  Case REG_DWORD
   nValue = vValue
   SetValueEx = RegSetValueExLong(hKey, _
                  sValueName, _
                  0&, _
                  lType, _
                  nValue, _
                  4)
  End Select
End Function

Public Sub CreateNewKey(sNewKeyName As String, _
            lPredefinedKey As Long)
  Dim hKey As Long
  Dim result As Long
  Call RegCreateKeyEx(lPredefinedKey, _
           sNewKeyName, 0&, _
           vbNullString, _
           REG_OPTION_NON_VOLATILE, _
           KEY_ALL_ACCESS, 0&, hKey, result)
  Call RegCloseKey(hKey)
End Sub

Public Sub SetKeyValue(sKeyName As String, _
           sValueName As String, _
           vValueSetting As Variant, _
           lValueType As Long)
  Dim hKey As Long
  Call RegOpenKeyEx(HKEY_CLASSES_ROOT, _
           sKeyName, 0, _
           KEY_ALL_ACCESS, hKey)
  Call SetValueEx(hKey, _
         sValueName, _
         lValueType, _
         vValueSetting)
  Call RegCloseKey(hKey)
End Sub
Public Sub SetKeyValue(sKeyName As String, _
           sValueName As String, _
           vValueSetting As Variant, _
           lValueType As Long)
  Dim hKey As Long
  Call RegOpenKeyEx(HKEY_CURRENT_USER, _
           sKeyName, 0, _
           KEY_ALL_ACCESS, hKey)
  Call SetValueEx(hKey, _
         sValueName, _
         lValueType, _
         vValueSetting)
  Call RegCloseKey(hKey)
End Sub