Seznam všech Mail klientů
Na formulář přidejte ListBox a tlačítko. V deklarační části formuláře zapište:
Private Declare Function
RegOpenKey Lib "advapi32.dll" Alias _
"RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _
phkResult As Long) As Long
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
Private Declare Function
RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long
Public Const HKEY_LOCAL_MACHINE = &H80000002
Na událost Click tlačítka:
Private Sub
Command1_Click()
Dim
sKey As String * 255
Dim lRegKey As Long
Dim iKey As Integer
List1.Clear
Call RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Clients\Mail", lRegKey)
While
RegEnumKey(lRegKey, iKey, sKey, 255) = 0
List1.AddItem Left(sKey, InStr(sKey,
Chr(0)) - 1)
iKey = iKey + 1
Wend
Call RegCloseKey(lRegKey)
End Sub