home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Commercial2109524142008.psc / RegFunctions.bas < prev   
BASIC Source File  |  2007-10-28  |  3KB  |  56 lines
  1. Attribute VB_Name = "mod2"
  2. 'Warning : This Program Control and its required files are Open Source to the world thus the Author is not responsible For Any Misuse.
  3. Option Explicit
  4. Public Enum ROOT_HKEY
  5.     HKEY_CLASSES_ROOT = &H80000000
  6.     HKEY_CURRENT_USER = &H80000001
  7.     HKEY_USERS = &H80000003
  8.     HKEY_LOCAL_MACHINE = &H80000002
  9.     HKEY_CURRENT_CONFIG = &H80000005
  10.     HKEY_DYN_DATA = &H80000006
  11.     HKEY_PERFORMANCE_DATA = &H80000004
  12. End Enum
  13. #If False Then 'Trick preserves Case of Enums when typing in IDE
  14. Private HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_USERS, HKEY_LOCAL_MACHINE, HKEY_CURRENT_CONFIG
  15. Private HKEY_DYN_DATA, HKEY_PERFORMANCE_DATA
  16. #End If
  17. Private HKEYS                                         As New Collection
  18. Private REGTYPES                                      As New Collection
  19. Private REGOUT                                        As New Collection
  20. Public Const AddtoStartup_SZ                          As Long = 1
  21. Private Const AddtoStartup_EXPAND_SZ                  As Long = 2
  22. Private Const AddtoStartup_BINARY                     As Long = 3
  23. Private Const AddtoStartup_DWORD                      As Long = 4
  24. Private Const AddtoStartup_MULTI_SZ                   As Long = 7
  25. Private Const AddtoStartup_OPTION_NON_VOLATILE        As Long = 0
  26. Private Const AddtoStartup_CREATED_NEW_KEY            As Long = &H1
  27. Private Const AddtoStartup_OPENED_EXISTING_KEY        As Long = &H2
  28. Private Const KEY_QUERY_VALUE                         As Long = &H1
  29. Private Const KEY_ENUMERATE_SUB_KEYS                  As Long = &H8
  30. Private Const KEY_NOTIFY                              As Long = &H10
  31. Private Const READ_CONTROL                            As Long = &H20000
  32. Private Const STANDARD_RIGHTS_ALL                     As Long = &H1F0000
  33. Private Const STANDARD_RIGHTS_READ                    As Long = (READ_CONTROL)
  34. Private Const SYNCHRONIZE                             As Long = &H100000
  35. Private Const KEY_READ                                As Double = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
  36. Private Const KEY_SET_VALUE                           As Long = &H2
  37. Private Const KEY_CREATE_SUB_KEY                      As Long = &H4
  38. Private Const KEY_CREATE_LINK                         As Long = &H20
  39. Private Const STANDARD_RIGHTS_WRITE                   As Long = (READ_CONTROL)
  40. Private Const KEY_WRITE                               As Double = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
  41. Private Const KEY_ALL_ACCESS                          As Double = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
  42. Public Const ERROR_SUCCESS                            As Long = 0
  43. Type SECURITY_ATTRIBUTES
  44.     nLength                                             As Long
  45.     lpSecurityDescriptor                                As Long
  46.     bInheritHandle                                      As Boolean
  47. End Type
  48. Public Type FILETIME
  49.     dwLowDateTime                                       As Long
  50.     dwHighDateTime                                      As Long
  51. End Type
  52. Public Type KEYARRAY
  53.     cnt                                                 As Long
  54.     key()                                               As String
  55.     Data()                                              As Variant
  56.     Dataic T