Registry key lesen

[Andreas L.]

Zitat von Alfi001:

Delphi (bzw. die Unit "Registry") fordert beim öffnen eines Registry Keys normalerweise volle Rechte an (also auch Schreibrechte). Um das zu verhindern kann man das Property "Access := KEY_READ" setzen. Also so:

Delphi-Quellcode:

procedure TForm1.Button_1Click(Sender: TObject);
begin
  with TRegistry.Create do begin
    RootKey := HKEY_LOCAL_MACHINE;
    Access := KEY_READ;
    if OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon', False) then
      ShowMessage(ReadString('DefaultDomainName'))
    else
      ShowMessage('Ooops...')
  end;
end;

Sollte man Access nicht vor RootKey setzen?