vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Zugriff auf Registry 
Autor: Manuel
Datum: 27.07.01 12:29

Hallo Leute,
hat jemand von euch ne Ahnung von den richtigen Argumenten und Konstanten usw. die man braucht um auf die Registry zugreifen zu können? Es würde mir sehr weiterhelfen wenn mir jemand Beispielcodes für lesen von Werten, ändern von Werten und erstellen neuer Schlüssel mailen könnte. Danke,
Manuel

P.S.: hier noch der Code mit dem es NICHT geklappt hat:
alle Konstanten sind aus der Api-Bibliothek

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 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 ' Note that if you declare the lpData parameter as String, you must pass it By Value. ' Unicode nul terminated string
Const REG_DWORD = 4 ' 32-bit number
Const REG_SZ = 1 ' Unicode nul terminated string


Const HKEY_LOCAL_MACHINE = &H80000002
Const STANDARD_RIGHTS_ALL = &H1F0000
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 SYNCHRONIZE = &H100000
Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))

Private Sub Form_Load()
Dim Bezugsnummer As Long
RegOpenKeyEx HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindows _ CurrentVersionSetup", 0, KEY_ALL_ACCESS, Bezugsnummer
Dim Wert
RegQueryValueEx Bezugsnummer, "sourcepath", 0, REG_SZ, ByVal Wert, Len(Wert)
MsgBox "Installationspfad: " & Wert
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Zugriff auf Registry78Manuel27.07.01 12:29
Re: Zugriff auf Registry258ModeratorDieter27.07.01 12:54

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel