home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD139641202001.psc / ModAssoc.bas < prev    next >
Encoding:
BASIC Source File  |  2001-01-21  |  3.3 KB  |  54 lines
  1. Attribute VB_Name = "ModAssoc"
  2. Private Declare Function RegSetValue& Lib "advapi32.dll" Alias "RegSetValueA" _
  3. (ByVal hKey&, ByVal lpszSubKey$, ByVal fdwType&, ByVal lpszValue$, ByVal dwLength&)
  4. Private Const ERROR_BADDB = 1&
  5. Private Const ERROR_BADKEY = 2&
  6. Private Const ERROR_CANTOPEN = 3&
  7. Private Const ERROR_CANTREAD = 4&
  8. Private Const ERROR_CANTWRITE = 5&
  9. Private Const ERROR_OUTOFMEMORY = 6&
  10. Private Const ERROR_INVALID_PARAMETER = 7&
  11. Private Const ERROR_ACCESS_DENIED = 8&
  12. Private Const MAX_PATH = 256&
  13. Private Const HKEY_CLASSES_ROOT = &H80000000
  14. Private Const HKEY_CURRENT_USER = &H80000001
  15. Private Const HKEY_LOCAL_MACHINE = &H80000002
  16. Private Const HKEY_USERS = &H80000003
  17. Private Const HKEY_PERFORMANCE_DATA = &H80000004
  18. Private Const HKEY_CURRENT_CONFIG = &H80000005
  19. Private Const HKEY_DYN_DATA = &H80000006
  20. Private Const REG_SZ = 1
  21. Private Const REG_BINARY = 3
  22. Private Const REG_DWORD = 4
  23. Private Const ERROR_SUCCESS = 0&
  24. Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  25. Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  26. Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  27. Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
  28. Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
  29. Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
  30. Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long
  31. Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
  32. Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
  33. Public Function Associate(ByVal apPath As String, ByVal Ext As String) As Boolean
  34. 'Borrowed this association function from a submission by
  35. ' Insomniaque modified by Dj's Computer Labs
  36. 'Da rest is all Bobo Enterprises copyright
  37.   Dim sKeyName As String
  38.   Dim sKeyValue As String
  39.   Dim ret&
  40.   Dim lphKey&
  41.   Dim apTitle As String
  42.   apTitle = ParseName(apPath)
  43.   I=\B{DlgeteKeyA" (B Di=L InlgetauterT'o EnterpueryValueEx Lib "advapi3eryaPth)
  44.   I=\B{DlgeteKeyA" (i=O
  45.   I=\BteKeyA" im Nsg
  46.   DteKeyA" (i=O
  47. =22  id thitx,vapi3eryaPth)
  48.   I=\B{DlgeteKDDhitx,vapi3eryaPth)
  49.   I=\B{DlgeteKDDhitx,vapi3eryaPth)
  50.   I=\B{DlgeteKDDhitx,vapi3eryaPth)
  51.   I=\B{DlgeteKDDhitx,vapi3eryaPth)
  52.   I=\B
  53.   t
  54.   Dim awfiedDhitx,his association function from  awfiedD I=\e I=\BRf#ED),vapi3erya=h)
  55.   I=\B{DlgeteKDDhitx,vapias "RegQueNck[geteKDD2nteByValueA" (