| CreateObject("WScript.Shell") |
| |
| |
| ' Verweis auf Windows Scripting Host muss gesetzt sein. | |
| |
| Registrykey lesen | |
| Public Function RegRead(Path As String) As String | Gibt den Wert des Schlüssels aus "Path" zurück |
| Dim ws As Object | |
| On Error GoTo ErrHandler | |
| Set ws = CreateObject("WScript.Shell") | |
| RegRead = ws.RegRead(Path) | |
| Exit Function | |
| ErrHandler: | |
| RegRead = "" | |
| End Function | |
| |
| Registrykey löschen | |
| Public Function RegDelete(Path As String) As Boolean | Löscht den Schlüssel aus "Path" |
| Dim ws As Object | |
| On Error Goto ErrHandler | |
| Set ws = CreateObject("WScript.Shell") | |
| ws.RegDelete Path | |
| RegDelete = True | |
| Exit Function | |
| ErrHandler: | |
| RegDelete = False | |
| End Function | |
| |
| Nachfolgend ein Beispiel. Benötigt werden eine Form, 3 Buttons und eine Textbox. |
| Die Textbox dient zur Eingabe des Registry-Pfades. | |
| Private Sub Command1_Click() | Lesen |
| Dim Inhalt As String | |
| Inhalt = RegRead(Text1.Text) | |
| If Inhalt = "" Then | |
| MsgBox "Der Schlüssel existiert nicht!" | |
| Else | |
| MsgBox "Inhalt des Schlüssels: " & Inhalt | |
| End If | |
| End Sub | |
| |
| Private Sub Command3_Click() | Löschen |
| If MsgBox("Schlüssel wirklich Löschen?", vbYesNo) = vbYes Then |
| If RegDelete(Text1.Text) Then | |
| MsgBox "Schlüssel wurde gelöscht." | |
| Else | |
| MsgBox "Schlüssel konnte nicht gelöscht werden!" | |
| End If | |
| End If | |
| End Sub | |
| |
| Folgende Bereiche sind in der Registry zu finden: |
|
| HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders |
|
| Hier finden Sie viele Windows-Pfade von "My Music" bis über "Verlauf". Beachten Sie bitte, dass es bei manchen |
| Systemen auch den Ordner "UserShell Folders" gibt, diese werden z.T. für User gebraucht, die nicht |
| Administrator sind. (Achtung wegen Benutzereinschränkungen!). |
|
| HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics |
|
| Dies ist der Allgemeine Windows-Fenster-Ordner. Hier finden Sie viele Fenstereinstellungen u.a. Icongrösse |
| auf Desktop, Zeilenumbruch bei Icons (HKEY_CURRENT_USER\Control Panel\Desktop) etc. |
| |
zurück