Einzelnen Beitrag anzeigen

devidespe

Registriert seit: 7. Sep 2006
Ort: Berlin
434 Beiträge
 
Delphi 10.4 Sydney
 
#1

Registry-Schlüssel unter 64 Bit Windows nicht auslesbar?

  Alt 18. Apr 2012, 11:38
Ich habe eine Anwendung mit Admin-Rechten und möchte einen Registry-Stringschlüssel auslesen. Das funktioniert auch unter der 32 Bit-Version von Windows 7 mit folgendem Code ganz gut:

Delphi-Quellcode:
function GetWindowsGUID : string;
var CryptoGUID : TRegistry;
    MachineGUIDStr : string;
begin
  Result:='';
  CryptoGUID:=TRegistry.Create;
  try
    CryptoGUID.RootKey:=HKEY_LOCAL_MACHINE;
    CryptoGUID.Access :=KEY_READ;
    if CryptoGUID.OpenKeyReadOnly('Software\Microsoft\Cryptography') then
    begin
      MachineGUIDStr:=CryptoGUID.ReadString('MachineGuid');
      Result:=Uppercase(MachineGUIDStr);
    end;
  finylly
    CryptoGUID.Free;
  end;
end;
Bei einer 64 Bit-Version von Windows 7 kommt ein Leerstring zurück, und die Hilfe sagt auch, dass dies der Fall ist, wenn der Schlüssel nicht existiert. In Regedit sehe ich aber, dass er existiert. Woran kann das liegen?
Devid
57 65 72 20 6C 65 73 65 6E 20 6B 61 6E 6E 2C 20 69 73 74 20 6B 6C 61 72 20 69 6D 20 56 6F 72 74 65 69 6C 21
  Mit Zitat antworten Zitat