Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Lange Binär-Werte aus Registry schreiben und einlesen???
Autor: Alex Englhardt
Datum: 04.09.03 12:28
Na dann Option Explicit '*** Enumerations '*** eRegistryRootKeys Private Enum eRegistryRootKeys HKEY_CLASSES_ROOT = &H80000000 HKEY_CURRENT_USER = &H80000001 HKEY_LOCAL_MACHINE = &H80000002 HKEY_USERS = &H80000003 HKEY_PERFORMANCE_DATA = &H80000004 HKEY_CURRENT_CONFIG = &H80000005 HKEY_DYN_DATA = &H80000006 End Enum '*** eRegistryDataTypes Private Enum eRegistryDataTypes REG_NONE = 0 ' No value type REG_SZ = 1 ' Unicode null terminated string REG_EXPAND_SZ = 2 ' Unicode null terminated string REG_BINARY = 3 ' Free form binary REG_DWORD = 4 ' 32-bit number REG_DWORD_LITTLE_ENDIAN = 4 ' 32-bit number (same as REG_DWORD) REG_DWORD_BIG_ENDIAN = 5 ' 32-bit number REG_LINK = 6 ' Symbolic Link (unicode) REG_MULTI_SZ = 7 ' Multiple Unicode strings REG_RESOURCE_LIST = 8 ' Resource list in the resource map REG_FULL_RESOURCE_DESCRIPTOR = 9 ' Resource list in the hardware description REG_RESOURCE_REQUIREMENTS_LIST = 10 End Enum '*** RegCloseKey Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long '*** RegCreateKey Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal sSubKeyName As String, hSubKey As Long) As Long '*** RegOpenKey Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal sSubKeyName As String, hSubKey As Long) As Long '*** RegQueryValueEx Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal sValueName As String, ByVal lpReserved As Long, lDataType As Long, ByVal lpValue As Long, cbValue As Long) As Long '*** RegSetValueEx Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal sValueName As String, ByVal lpReserved As Long, ByVal lDataType As Long, ByVal lpValue As Long, ByVal cbValue As Long) As Long ' Note that if you declare the lpValue parameter as String, you must pass it By Value. Private Sub cmdLoad_Click() Dim hSubKey As Long Dim abData() As Byte Dim cData As Long If RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Test", hSubKey) = 0 Then cData = 0 If RegQueryValueEx(hSubKey, "Binary", 0&, REG_BINARY, 0, cData) = 0 Then If cData = 0 Then Text1.Text = "" Else ReDim abData(0 To (cData - 1)) If RegQueryValueEx(hSubKey, "Binary", 0&, REG_BINARY, VarPtr(abData(0)), cData) = 0 Then Text1.Text = StrConv(abData, vbUnicode) End If End If End If Call RegCloseKey(hSubKey) End If End Sub Private Sub cmdSave_Click() Dim hSubKey As Long Dim abData() As Byte Dim cData As Long If RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Test", hSubKey) = 0 Then If Len(Text1.Text) = 0 Then Call RegSetValueEx(hSubKey, "Binary", 0&, REG_BINARY, 0, 0) Else abData = StrConv(Text1.Text, vbFromUnicode) cData = (UBound(abData) - LBound(abData) + 1) Call RegSetValueEx(hSubKey, "Binary", 0&, REG_BINARY, VarPtr(abData(0)), cData) End If Call RegCloseKey(hSubKey) End If End Sub Alex

Lange Binär-Werte aus Registry schreiben und einlesen???	1.238	--Florian--	02.09.03 21:02
Re: Lange Binär-Werte aus Registry schreiben und einlesen???	982	GuidoE	03.09.03 19:22
Re: Lange Binär-Werte aus Registry schreiben und einlesen???	846	--Florian--	03.09.03 21:08
Re: Lange Binär-Werte aus Registry schreiben und einlesen???	857	GuidoE	03.09.03 21:16
Re: Lange Binär-Werte aus Registry schreiben und einlesen???	957	--Florian--	03.09.03 22:41
Re: Lange Binär-Werte aus Registry schreiben und einlesen???	833	Alex Englhardt	04.09.03 09:21
Re: Lange Binär-Werte aus Registry schreiben und einlesen???	853	--Florian--	04.09.03 11:46
Re: Lange Binär-Werte aus Registry schreiben und einlesen???	2.210	Alex Englhardt	04.09.03 12:28
Re: Lange Binär-Werte aus Registry schreiben und einlesen???	880	--Florian--	04.09.03 12:43
Re: Lange Binär-Werte aus Registry schreiben und einlesen???	977	--Florian--	04.09.03 13:12
Re: Lange Binär-Werte aus Registry schreiben und einlesen???	830	Alex Englhardt	04.09.03 13:38
Re: Lange Binär-Werte aus Registry schreiben und einlesen???	978	mweitzel	24.05.04 13:32

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