Nicht durchgeführten Neustart nach Windowsupdate detektieren

[p80286]

Ich hab den source von CCRDUDE für D7 und W8 angepasst:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,registry,windows;

var
   reg: TRegistry;


begin
   //reg := TRegistry.Create(KEY_READ or KEY_WOW64_64KEY);
   reg:=TRegistry.Create(KEY_READ or $0100);
   try
      reg.RootKey := HKEY_LOCAL_MACHINE;
      if reg.KeyExists('\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\') then begin
         WriteLn('[+] Key exists.');
      end else begin
         WriteLn('[-] Key missing.');
      end;
      if reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\', False) then begin
         WriteLn('[+] Key opened.');
      end else begin
         WriteLn('[-] Unable to access.');
      end;
      if reg.KeyExists('\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\RebootRequired') then begin
         WriteLn('[i] Reboot required.');
      end else begin
         WriteLn('[i] No reboot required.');
      end;
   finally
      reg.Free;
   end;
   ReadLn;
end.

Das funktioniert!

Gruß
K-H