auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Registrykey lesen und löschen

Registrykey lesen und löschen via 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öße
auf Desktop, Zeilenumbruch bei Icons (HKEY_CURRENT_USER\Control Panel\Desktop) etc.

Mehr Tipps: Scale-Methode I

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt