Zugriff auf Registry unter Vista

[DeddyH]

Und so?

Delphi-Quellcode:

  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKeyReadOnly('\Software\Microsoft\Windows\CurrentVersion\InternalCV') then
      with Reg do
      begin
        installed    :=ReadString('Installed');
        infotext     :=ReadString('Description');
        try
          updates    :=ReadBool('Active');
        except end;
      end;
  finally
    Reg.CloseKey;
    Reg.Free;
    inherited;
  end;

Ich habe kein Vista und kann daher nicht testen.