|
| |
Fortgeschrittene Programmierung| Vollständiges Codebeispiel | |  | Autor:  Dieter (Moderator) | | Datum: 17.01.02 22:29 |
| Hi Stefan,
hier ein funktionsfähiger Code.
Zum Testen wird eine Form mit einem List-Control (List1), sowie ein CommandButton (Command1) benötigt.
Und hier der vollständige Code:
<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
<font color=green>' benötigte API-Deklarationen</font>
<font color=#000099>Private</font> <font color=#000099>Declare</font> <font _
color=#000099>Function</font> RegOpenKeyEx <font color=#000099>Lib</font> _
"advapi32.dll" _
<font color=#000099>Alias</font> "RegOpenKeyExA" (<font _
color=#000099>ByVal</font> hKey <font color=#000099>As</font> <font _
color=#000099>Long</font>, _
<font color=#000099>ByVal</font> lpSubKey <font color=#000099>As</font> <font _
color=#000099>String</font>, <font color=#000099>ByVal</font> ulOptions <font _
color=#000099>As</font> <font color=#000099>Long</font>, _
<font color=#000099>ByVal</font> samDesired <font color=#000099>As</font> _
<font color=#000099>Long</font>, phkResult <font color=#000099>As</font> _
<font color=#000099>Long</font>) <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Private</font> <font color=#000099>Declare</font> <font _
color=#000099>Function</font> RegEnumKey <font color=#000099>Lib</font> _
"advapi32.dll" _
<font color=#000099>Alias</font> "RegEnumKeyA" (<font _
color=#000099>ByVal</font> hKey <font color=#000099>As</font> <font _
color=#000099>Long</font>, _
<font color=#000099>ByVal</font> dwIndex <font color=#000099>As</font> <font _
color=#000099>Long</font>, <font color=#000099>ByVal</font> lpName <font _
color=#000099>As</font> <font color=#000099>String</font>, _
<font color=#000099>ByVal</font> cbName <font color=#000099>As</font> <font _
color=#000099>Long</font>) <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Private</font> <font color=#000099>Declare</font> <font _
color=#000099>Function</font> RegCloseKey <font color=#000099>Lib</font> _
"advapi32.dll" _
(<font color=#000099>ByVal</font> hKey <font color=#000099>As</font> <font _
color=#000099>Long</font>) <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=green>' Konstanten</font>
<font color=#000099>Private</font> <font color=#000099>Const</font> _
HKEY_CURRENT_USER = &H80000001
<font color=#000099>Private</font> <font color=#000099>Const</font> _
KEY_ENUMERATE_SUB_KEYS = &H8
<font color=#000099>Private</font> <font color=#000099>Const</font> _
ERROR_SUCCESS = 0&
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
Command1_Click()
<font color=#000099>Dim</font> ErrCode <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Dim</font> keyIndex <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Dim</font> strBuffer <font color=#000099>As</font> <font _
color=#000099>String</font>
<font color=#000099>Dim</font> lStatus <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=#000099>Dim</font> hKey <font color=#000099>As</font> <font _
color=#000099>Long</font>
<font color=green>' Registry-Zweig öffnen</font>
ErrCode = RegOpenKeyEx(HKEY_CURRENT_USER, _
"RemoteAccessProfile", 0, _
KEY_ENUMERATE_SUB_KEYS, hKey)
<font color=#000099>If</font> ErrCode = ERROR_SUCCESS <font _
color=#000099>Then</font>
<font color=green>' Alle SubKeys auslesen</font>
keyIndex = 0
<font color=#000099>Do</font>
strBuffer = Space(255)
lStatus = RegEnumKey(hKey, keyIndex, strBuffer, _
Len(strBuffer))
<font color=#000099>If</font> lStatus <> 0 <font _
color=#000099>Then</font> <font color=#000099>Exit</font> <font _
color=#000099>Do</font>
strBuffer = Left$(strBuffer, _
InStr(1, strBuffer, vbNullChar) - 1)
keyIndex = keyIndex + 1
List1.AddItem strBuffer
<font color=#000099>Loop</font>
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=green>' Registry-Zugriff beenden</font>
<font color=#000099>Call</font> RegCloseKey(hKey)
<font color=#000099>End</font> <font color=#000099>Sub</font></code>Cu
Dieter | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
