Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Benutzergruppen
Autor: MrByte
Datum: 30.10.02 10:18
Hallo, probiere es damit: Result = RegValueGet(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\", "RegisteredOwner", Value) If Result = 0 Then usergroup.Text = CStr(Value) Else usergroup.Text = "Fehler beim Auslesen" End If Funktionen, die Du brauchst: Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _ Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal _ lpSubKey As String, ByVal ulOptions As Long, ByVal _ samDesired As Long, phkResult As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" _ (ByVal hKey As Long) As Long Private Declare Function RegQueryValueEx 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 Any) As Long Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_USERS = &H80000003 Const HKEY_PERFORMANCE_DATA = &H80000004 Const HKEY_CURRENT_CONFIG = &H80000005 Const HKEY_DYN_DATA = &H80000006 Const KEY_QUERY_VALUE = &H1 Const KEY_SET_VALUE = &H2 Const KEY_CREATE_SUB_KEY = &H4 Const KEY_ENUMERATE_SUB_KEYS = &H8 Const KEY_NOTIFY = &H10 Const KEY_CREATE_LINK = &H20 Const KEY_READ = KEY_QUERY_VALUE Or _ KEY_ENUMERATE_SUB_KEYS _ Or KEY_NOTIFY Const KEY_ALL_ACCESS = KEY_QUERY_VALUE Or _ KEY_SET_VALUE Or _ KEY_CREATE_SUB_KEY Or _ KEY_ENUMERATE_SUB_KEYS Or _ KEY_NOTIFY Or _ KEY_CREATE_LINK Const ERROR_SUCCESS = 0& Const REG_NONE = 0 Const REG_SZ = 1 Const REG_EXPAND_SZ = 2 Const REG_BINARY = 3 Const REG_DWORD = 4 Const REG_DWORD_LITTLE_ENDIAN = 4 Const REG_DWORD_BIG_ENDIAN = 5 Const REG_LINK = 6 Const REG_MULTI_SZ = 7 Const REG_OPTION_NON_VOLATILE = &H0 Function RegValueGet(Root&, Key$, Field$, Value As Variant) As Long Dim Result&, hKey&, dwType&, Lng&, Buffer$, l& 'Wert aus einem Feld der Registry auslesen Result = RegOpenKeyEx(Root, Key, 0, KEY_READ, hKey) If Result = ERROR_SUCCESS Then Result = RegQueryValueEx(hKey, Field, 0&, dwType, ByVal 0&, l) If Result = ERROR_SUCCESS Then Select Case dwType Case REG_SZ Buffer = Space$(l + 1) Result = RegQueryValueEx(hKey, Field, 0&, _ dwType, ByVal Buffer, l) If Result = ERROR_SUCCESS Then Value = Buffer Case REG_DWORD Result = RegQueryValueEx(hKey, Field, 0&, dwType, Lng, l) If Result = ERROR_SUCCESS Then Value = Lng End Select End If End If If Result = ERROR_SUCCESS Then Result = RegCloseKey(hKey) RegValueGet = Result End Function NS

Benutzergruppen	459	TheTwist76	29.10.02 18:03
Re: Benutzergruppen	353	Elwood	29.10.02 18:15
Re: Benutzergruppen	295	TheTwist76	29.10.02 20:14
Re: Benutzergruppen	307	MrByte	30.10.02 10:18
Re: Benutzergruppen	281	MrByte	30.10.02 10:46
Re: Benutzergruppen	294	Elwood	30.10.02 10:52
Re: Benutzergruppen	74	Buddy	03.11.02 11:01
Re: Benutzergruppen	84	Buddy	04.11.02 20:24

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen