'esempio
'Call reg(HKEY_CLASSES_ROOT, "VisualBasic.Form", "") 'Restituisce il form di Visual Basic Private Const HKEY_CLASSES_ROOT = &H80000000 Private Const HKEY_CURRENT_USER = &H80000001 Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Const HKEY_USERS = &H80000003 Private Const HKEY_CURRENT_CONFIG = &H80000004 Private Const HKEY_DYN_DATA = &H80000005 Private Declare Function rkey Lib "advapi32.dll" _ Alias "RegCloseKey" (ByVal hKey As Long) As Long Private Declare Function okey Lib "advapi32.dll" _ Alias "RegOpenKeyA" (ByVal hKey As Long, _ ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function gkey 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 Private Function reg(key1 As String, sect1 As String, _ valu As String) Dim ckey, lbf, lf, stb As String 'Apre il registro Call okey(key1, sect1, ckey) 'Estrae le info dal registro parte1 Call gkey(ckey, valu, 0, 0, 0, lbf) stb = String(lbf, " ") 'Estrae le info dal registro parte2 Call gkey(ckey, valu, 0, 0, ByVal stb, lbf) 'queste sono le info per la ricerca reg = stb 'chiude il registro Call rkey(ckey) End Function Private Sub Form_Load() MsgBox reg(HKEY_CLASSES_ROOT, "VisualBasic.Form", "") End Sub |