Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: REGISTRY EINTRäGE äNDERN
Autor: Chris
Datum: 03.05.02 11:37
Wie du jetzt vielleicht jetzt gemerkt hast, bin ich auf dem Gebiet ein Greenhorn. Ein bisschen von VB verstehe ich schon, aber dieses Problem beschäftigt mich jetzt schon enorm. Ich wäre froh wenn du mir helfen könntest. Ich habe den Code soweit angepasst, wie es mein Wissenstand zugelassen hat. Hier ist der Code wie ich ihn bis jetzt mutiert habe. 'zunächst alle benötigten API-Deklarationen 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 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 Long) As Long Private Declare Function RegSetValueEx Lib "advapi32.dll" _ Alias "RegSetValueExA" (ByVal hKey As Long, _ ByVal lpValueName As String, ByVal Reserved As Long, _ ByVal dwType As Long, lpData As Any, ByVal cbData As Long) _ As Long Private Declare Function RegCloseKey Lib "advapi32.dll" _ (ByVal hKey As Long) As Long Private Declare Function RegCreateKey Lib "advapi32.dll" _ Alias "RegCreateKeyA" (ByVal hKey As Long, _ ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegDeleteValue Lib "advapi32.dll" _ Alias "RegDeleteValueA" (ByVal hKey As Long, _ ByVal lpValueName As String) As Long Const HKEY_CURRENT_USER = &H80000001 Const REG_SZ = 1 Const REG_BINARY = 3 Private Sub Command1_Click() 'Wert (String/Text) für einen bestimmten 'Schlüsselnamen speichern. Sollte der Schlüssel nicht 'existieren, wird dieser autom. erstellt. ' 'Parameterbeschreibung '--------------------- 'hKey (Hauptschlüssel) : z.B. HKEY_CURRENT_USER 'sPath (Schlüsselpfad) : z.B. MeineAnwendung 'sValue (Schlüsselname): z.B. Path 'iData (Schlüsselwert) : z.B. crogrammeMeineAnwendung 'fStringSpeichern Dim hKey As Long Dim sPath As String Dim sValue As String Dim iData As String Dim vRet As Variant RegCreateKey HKEY_CURRENT_USER, HKCU ControlPanel International, vRet RegSetValueEx vRet, sShortDate, MM.dd.yyyy, REG_SZ, ByVal iData, _ Len(iData) RegCloseKey vRet End Sub Auf der Linie von RegCreateKey HKEY_CURRENT_USER, HKCU Cont...... meldet VB eine Division durch Null! kannst du mir sagen was das zu bedeuten hat?

REGISTRY EINTRäGE äNDERN	86	Chris	03.05.02 09:05
Re: REGISTRY EINTRäGE äNDERN	681	Dieter	03.05.02 09:45
Re: REGISTRY EINTRäGE äNDERN	54	Chris	03.05.02 10:41
Re: REGISTRY EINTRäGE äNDERN	793	Dieter	03.05.02 10:49
Re: REGISTRY EINTRäGE äNDERN	60	Chris	03.05.02 11:10
Re: REGISTRY EINTRäGE äNDERN	59	Chris	03.05.02 11:37
Re: REGISTRY EINTRäGE äNDERN	807	Dieter	03.05.02 11:54
Re: REGISTRY EINTRäGE äNDERN	55	Chris	03.05.02 12:00
Sollte so gehen:	632	Dieter	03.05.02 13:31
Re: Sollte so gehen:	55	Chris	03.05.02 14:09
Re: Sollte so gehen:	55	Chris	03.05.02 14:12
Re: Sollte so gehen:	603	Dieter	03.05.02 14:44
Re: Sollte so gehen:	57	Chris	03.05.02 14:52

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