Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

(Standard) Wert aus Registry lesen
Autor: gn.Silence
Datum: 19.03.03 22:10
Ich hab mal das Tut "Registry im Griff" durchgearbeitet... leider hab ich nun folgendes Prob: Ich kann den Wert vom (Standard) Key nicht auslesen... klappt irgendwie nid... Fehlermeldung gibts keine... der Code sieht so aus bei mir: (wenn ich für sValue "(Standard)" mach gehts auch ned) im Modul: Function fWertLesen(sPath As String) Dim vRet As Variant Dim hKey As Long Dim sValue As String sValue = "" hKey = HKEY_LOCAL_MACHINE RegOpenKey hKey, sPath, vRet fWertLesen = fRegAbfrageWert(vRet, sValue) RegCloseKey vRet End Function Function fRegAbfrageWert(ByVal hKey As Long, _ ByVal sValueName As String) As String Dim sBuffer As String Dim lRes As Long Dim lTypeValue As Long Dim lBufferSizeData As Long Dim iData As Integer lRes = RegQueryValueEx(hKey, sValueName, 0, _ lTypeValue, ByVal 0, lBufferSizeData) If lRes = 0 Then If lTypeValue = REG_SZ Then sBuffer = String(lBufferSizeData, Chr$(0)) lRes = RegQueryValueEx(hKey, sValueName, 0, _ 0, ByVal sBuffer, lBufferSizeData) If lRes = 0 Then fRegAbfrageWert = Left$(sBuffer, _ InStr(1, sBuffer, Chr$(0)) - 1) End If ElseIf lTypeValue = REG_BINARY Then lRes = RegQueryValueEx(hKey, sValueName, 0, _ 0, iData, lBufferSizeData) If lRes = 0 Then fRegAbfrageWert = iData End If End If End If End Function in der form: Private Sub tfGo_Click() Dim prnName As String Dim sKey As String sKey = "Software- Der Stimmt auf jeden Fall ;)" prnName = fWertLesen(sKey) tfKey.Text = prnName End Sub

(Standard) Wert aus Registry lesen	536	gn.Silence	19.03.03 22:10
Re: (Standard) Wert aus Registry lesen	260	Elwood	19.03.03 22:49
Re: (Standard) Wert aus Registry lesen	258	gn.Silence	20.03.03 14:38
Re: (Standard) Wert aus Registry lesen	266	gn.Silence	20.03.03 20:24
Re: (Standard) Wert aus Registry lesen	409	ari	20.03.03 23:42
Re: (Standard) Wert aus Registry lesen	356	gn.Silence	21.03.03 16:13
Re: (Standard) Wert aus Registry lesen	312	gn.Silence	21.03.03 16:14
Re: (Standard) Wert aus Registry lesen	281	ari	21.03.03 18:24
Re: (Standard) Wert aus Registry lesen	256	gn.Silence	21.03.03 19:36

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