Registrierschlüssel auslesen funzt net
21.09.2005 22:21:01
Peter
ich hab mal ne Frage. Warum funzt die erste Abfrage und liefert einen Wert (zur Info den Wert hab ich per VBA eintragen lassen).
Und was noch viel wichtiger ist, warum funzen die anderen beiden Abfragen nicht und liefern nur den Wert "".
Zur Info, hab ein Prog geschrieben in dem unter anderem Dateien per WinRar gepackt werden und muss, irgendwie überprüfen ob das Prog überhaupt instaliert ist.
Hat jemand nen Rat, Danke ?
Public varRar As Variant
Private Sub Workbook_Open()
'c:/programme/winrar/winrar.exe
varRar = GetSetting("Anw1", "Startup", "Left")
'HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Anw1\Startup
varRar = GetSetting("Setup", ".rar", "Exist")
'HKEY_CURRENT_USER\Software\WinRAR\Setup\.rar
varRar = GetSetting(".rar", "ShellNew", "FileName")
'FileName
'HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.rar\ShellNew
End Sub