---

Hallo Zusammen,

ich möchte mittels VBA einen Wert vom Typ REG_DWORD aus der Registry auslesen.
Mit den Funktionen 'RegOpenKeyEx' und 'RegEnumValue' kann ich den Zugriff realisieren.
Problem: In der Registry kann der Wert 0 oder 1 sein - wenn ich den Rückgabewert in einer msgbox anzeigen lasse, erhalte ich entweder ein Quadrat oder nichts!

Hat von euch schon jemand damit Erfahrungen gesammelt bzw. kennt eine Lösung ?

Um was geht es konkret? Ich möchte beim Start von Map2006 abprüfen, welche 'Oberfläche' eingestellt ist. Diese kann man mit dem Befehl Mapskinmap umstellen. Gespeichert wird diese Information in der Registry unter HKEY_CURRENT_USER...applications\acmap im Wert skinenabled.

Viele Grüsse

Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Martin,

Probier mal folgenden Code:

Public Sub regtest()
Dim regpfad As String
Dim wert As String
regpfad = "HKCU\Software\Autodesk\AutoCAD\R16.2\ACAD-4001:407\test"
wert = RegRead(regpfad)
MsgBox wert
End Sub

'Gibt den Wert des Schlüssels aus "Path" zurück
Public Function RegRead(Path As String) As String
  Dim ws As Object

  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  RegRead = ws.RegRead(Path)
  Exit Function

ErrHandler:
  RegRead = ""
End Function

Dieser Code nutzt den Windows Scripting Host um die Werte auszulesen.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Carsten,

warum kompliziert, wenn es auch einfach geht. Von "Windows Scripting Host" habe ich schon einmal gehört, jetzt kann ich es auch anwenden.

Funktioniert super, vielen Dank.

Viele Grüsse

Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP