Difficult Registry Question

[slwolf8]

I was just looking at the FAQ article on getting values from any location in the registry (using an API call). I need to adapt the code to check for the existence of a key in a specified location rather than the getting the value of a key.

Specifically, I wish to check HKEY_CURRENT_USER\Software\Microsoft\WindowsNT\CurrentVersion\Devices to look for the existence of a certain printer (key) named "DPFPrint". Is this possible?

 

[mansii]

Not sure about API calls, but I found this somewhere and it helped me out.

Add Windows Script Host Object Model to your project refference.

Private Sub CekValue()
Dim wScript As IWshRuntimeLibrary.WshShell
Set wScript = New IWshRuntimeLibrary.WshShell
Dim bKey
On Error GoTo TheTrap
bKey = wScript.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WindowsNT\CurrentVersion\Devices\DPFPrint")
MsgBox "Found"
Exit Sub
TheTrap:
MsgBox "Not found."
Exit Sub
End Sub

Good luck