Rubrik: HTML/Internet/Netzwerk · HTML/Email | VB-Versionen: VB4, VB5, VB6 | 01.04.01 |
Alle installierten EMail-Clients ermitteln Mit Hilfe der Windows-Registry können Sie ganz leicht feststellen, welche EMail-Clients installiert sind. | ||
Autor: Dieter Otter | Bewertung: | Views: 17.356 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit Hilfe der Windows-Registry können Sie ganz leicht feststellen, welche EMail-Clients installiert sind. Die installierten EMail-Programme sind in der Windows-Registrier-Datenbank unter HKEY_LOCALE_MACHINE\Software\Clients\Mail gelistet. Der nachfolgende Tipp liest eben diesen Bereich aus und zeigt alle Einträge in einer Listbox an.
' zunächst die benötigten API-Deklarationen Public Declare Function RegOpenKey Lib "advapi32.dll" _ Alias "RegOpenKeyA" ( _ ByVal hKey As Long, _ ByVal lpSubKey As String, _ phkResult As Long) As Long Public 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 Public Declare Function RegCloseKey Lib "advapi32.dll" ( _ ByVal hKey As Long) As Long Public Const HKEY_LOCAL_MACHINE = &H80000002 ' Ermitteln aller EMail-Clients Dim sKey As String * 255 Dim lRegKey As Long Dim iKey As Integer List1.Clear 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 RegCloseKey lRegKey