Windows 7 Product Key

[jaenicke]

Du musst als Zugriffsflag KEY_WOW64_64KEY, also $0100, übergeben, damit du aus dem 64-Bit Zweig liest. Das hätte Google dir aber auch gesagt.

[DArc]

das hab ich auch schon mal versucht gehabt (infos hatte ich von http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx)

ich habe also
  Reg := TRegistry.Create(KEY_READ or $0100); verwendet, jedoch kein unterschied

[jaenicke]

Du benutzt OpenKeyReadOnly. Damit setzt du die Zugriffsflags zurück. Damit geht das nicht.

[DArc]

Tut mir leid, bin grad etwas neben mir, vorallem weil es nicht so funktionieren mag wie ich es wünsche

Delphi-Quellcode:

function GetWindowsRegistryValuesA: string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create(KEY_READ or $0100);
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if (Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\', false)) then
    begin
      try
      if Reg.KeyExists('DigitalProductId') then
                Result := Result + 'existiert';

        if Reg.ValueExists('DigitalProductId64') then
                Result := Result + 'existiert';
      finally
        Reg.CloseKey;
      end;
    end;
  finally
    Reg.Free;
  end;
end;

Kann jemand versuchen das mal bei sich auszutesten?
Oder hat jemand schon den Fehler gefunden?

Mfg DArc