Probleme beim Auslesen von Registry Keys

[Andidreas]

Hallo,

da in unserem aktuellen Projekt/Programm die Windows Oberfläche ausgeblendet wird würden wir gern über die Registry prüfen ob im Hintergrund Windows Updates installiert wurden.

Lt. Internet gibt es hier einen Eintrag in der Registry der den genauen Update Status (AUState) wiedergibt dieser ist im folgenden Pfad gespeichert:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\WindowsUpdate\Auto Update\

Ich versuche gerade mit dem folgenden Source an die Info ranzukommen:

Delphi-Quellcode:

procedure TForm1.Button30Click(Sender: TObject);

var
regKey  : TRegistry;

begin

  Try
    //Create Object
    regKey := TRegistry.Create;

    //Set Root Key
    regKey.RootKey := HKEY_CURRENT_USER;

    //Open Registry Key
    If Not(regKey.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update', False)) Then
    Begin
      MessageDlg('Could not open Registry Key!', mtError, [mbOK], 0);
    End Else
    Begin
      //Read Registry Key
      ShowMessage(regKey.ReadString('AUState'));
    End;

    //Close Registry Key
    regKey.CloseKey();
  Finally
    regKey.Free;
  End;

end;

Leider scheitere ich schon am OpenKey... hat jemand eine Idee warum? Liegt das evtl. an den Leerzeichen im Pfad?

[Andidreas]

Zusatz Info:

Das OpenKey klappt bis zu "CurrentVersion" sobald ich "WindowsUpdates" hinzufüge funktioniert das OpenKey nicht mehr!

[Sir Rufo]

Den Zweig findest du ja auch in HKEY_LOCAL_MACHINE (siehe deinen Quellcode, der sucht woanders)

Im Übrigen ist der bei einem x64-OS NUR in dem originalen Zweig zu finden. Also obacht, wenn man auf einem x64-OS mit einer x32-Anwendung diesen Zweig abfragen möchte!

[ernschd]

Hast du überprüft, ob der Schlüssel "Auto Update" überhaupt vorhanden ist?
Bei mir funktioniert der Code bis zu "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur r entVersion\WindowsUpdate\". Darunter habe ich keinen weiteren Eintrag in der Registry.

[himitsu]

Und dort dann auch mit KEY_READ, KEY_WOW64_64KEY und OpenKeyReadOnly


regKey := TRegistry.Create; gehört vor das Try
und warum hörst du nicht auf die Warnungen deines Compilers?

[Andidreas]

Zitat von Sir Rufo:

Den Zweig findest du ja auch in HKEY_LOCAL_MACHINE (siehe deinen Quellcode, der sucht woanders)

Im Übrigen ist der bei einem x64-OS NUR in dem originalen Zweig zu finden. Also obacht, wenn man auf einem x64-OS mit einer x32-Anwendung diesen Zweig abfragen möchte!

Sorry "HKEY_CURRENT_USER" stand noch drin vom Testen ob ich überhaupt mit meinem Source an Registry Werte rankomm! Mit HKEY_LOCAL_MACHINE funktioniert es ebenfalls nicht...

bezgl. "NUR im originalen Zweig"... Dieser Pfad den ich Verwende müsste ja der Originale Pfad sein?!?

Zitat von ernschd:

Hast du überprüft, ob der Schlüssel "Auto Update" überhaupt vorhanden ist?
Bei mir funktioniert der Code bis zu "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur r entVersion\WindowsUpdate\". Darunter habe ich keinen weiteren Eintrag in der Registry.

Ja der Pfad ist vorhanden!

Zitat von himitsu:

Und dort dann auch mit KEY_READ, KEY_WOW64_64KEY und OpenKeyReadOnly


regKey := TRegistry.Create; gehört vor das Try
und warum hörst du nicht auf die Warnungen deines Compilers?

Wo muss ihc das mit KEY_READ, KEY_WOW64_64KEY angeben?
Und wie meinst du das mit den Compiler Warnings?

OpenKeyReadOnly hab ich schon ausprobiert, half auch nichts!

[Andidreas]

Hier mal der aktualisierte und korrigierte Source Code:

Delphi-Quellcode:

procedure TForm1.Button30Click(Sender: TObject);

var
regKey  : TRegistry;

begin

  //Create Object
  regKey := TRegistry.Create(KEY_READ AND KEY_WOW64_64KEY);

  Try
    //Set Root Key
    regKey.RootKey := HKEY_LOCAL_MACHINE;

    //Open Registry Key
    If Not(regKey.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate')) Then
    Begin
      MessageDlg('Could not open Registry Key!', mtError, [mbOK], 0);
    End Else
    Begin
      //Read Registry Key
      ShowMessage(regKey.ReadString('AUState'));
    End;

    //Close Registry Key
    regKey.CloseKey();
  Finally
    regKey.Free;
  End;

end;

[Sir Rufo]

Augen auf beim Eierlauf!

Delphi-Quellcode:

procedure TForm1.Button30Click(Sender: TObject);

var
regKey : TRegistry;

begin

  //Create Object
  regKey := TRegistry.Create(KEY_READ OR KEY_WOW64_64KEY);

  Try
    //Set Root Key
    regKey.RootKey := HKEY_LOCAL_MACHINE;

    //Open Registry Key
    If Not(regKey.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update')) Then

[himitsu]

KEY_READ, KEY_WOW64_64KEY -> TRegistry.Create

[edit] grad eben bag es noch keine Posts.

[Andidreas]

@Sir Rufo & himitsu

Danke für die Info, so gehts nun:

Delphi-Quellcode:

procedure TForm1.Button30Click(Sender: TObject);

var
regKey  : TRegistry;

begin

  //Create Object
  regKey := TRegistry.Create(KEY_READ OR KEY_WOW64_64KEY);

  Try
    //Set Root Key
    regKey.RootKey := HKEY_LOCAL_MACHINE;

    //Open Registry Key
    If Not(regKey.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update')) Then
    Begin
      MessageDlg('Could not open Registry Key!', mtError, [mbOK], 0);
    End Else
    Begin
      //Read Registry Key
      ShowMessage(regKey.ReadString('NextDetectionTime'));
    End;

    //Close Registry Key
    regKey.CloseKey();
  Finally
    regKey.Free;
  End;

end;

Ich habe zum Testen den NextDetectionTime Schlüssel verwendet... An diesen Wert komm ich jetzt schon mal ran, jetzt muss ich das ganze nur noch auf einem Rechner mal Testen bei dem Updates anstehen und der AUState Schlüssel vorhanden ist