Registry key lesen

[msickel]

Hallo,

ich verwende folgenden Code um den Winlogon aus der Registry zu lesen.
Das geht auch solange wie ich lokal oder als admin angemeldet bin, als normaler User gehts nicht warum?

Gibt es eine andere Möglichkeit?

Delphi-Quellcode:

uses Registry;

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

Martin

[craash]

hi,

dass ein normaler user keine registryeinträge lesen/ändern kann liegt (wahrscheinlich) in der gruppenrichtlinie begründet.

gpedit.msc > Benutzerkonfiguration > Administrative Vorlagen > System > "Programme zum Bearbeiten der Registrierung deaktivieren" (win2000) / "Zugriff auf Programme zur Bearbeitung der Registrierung verhindern" (xp) o.ä.

wie das bei vista bearbeitet werden kann weiß ich leider nicht sicher :S


mfg


/edit: bei vista gehts per regedit > Bearbeiten > Berechtigungen

[Ralf Kaiser]

Zitat von msickel:

Hallo,

ich verwende folgenden Code um den Winlogon aus der Registry zu lesen.
Das geht auch solange wie ich lokal oder als admin angemeldet bin, als normaler User gehts nicht warum?

Halli Hallo,

Erst einmal: die OpenKey-Methode gibt dir ein boolean zurück um anzuzeigen, dass der Aufruf erfolgreich war. Dieses Ergebis wertest du nicht aus! (der Rückgabewert wird nicht ohne Grund geliefert! )

Zu deinem Problem:

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;

Dann klappt das Lesen auch als normaler Benutzer (aber man kann keine schreibenden Funktionen mehr verwenden!!!)

Ciao,
Ralf

[Luckie]

Zitat von msickel:

Das geht auch solange wie ich lokal oder als admin angemeldet bin, als normaler User gehts nicht warum?

Delphi öffnet die Reistry dummerweise mit ALL_ACCESS also zum Lesen UND Schreiben. Da du als normaler Bneutzer auch lesen kannst, musst du nur den Schlüssel explizit zum Lesen öffnen. Das kannst du machen, in dem du im Konstrukor von TRegistry die entsprechende Konstante übergibst oder ... Mist, es gibt noch eine andere Möglichkeit, die fällt mir nur gerade nicht ein.

[Andreas L.]

Oder OpenKeyReadOnly verwenden. Siehe Delphi-Hilfe.

[Luckie]

Zitat von Andreas L.:

Oder OpenKeyReadOnly verwenden. Siehe Delphi-Hilfe.

Genau das ist mir nicht eingefallen.

[Hawkeye219]

Hallo,

zum Thema "Konstruktor" fällt mir immer "Destruktor" ein...

Gruß Hawkeye

[Luckie]

Zitat von Hawkeye219:

Hallo,

zum Thema "Konstruktor" fällt mir immer "Destruktor" ein...

Oh ja. Machen wir es jetzt wie bei Dalli Dalli? Mir fällt noch "Ressourcenschutzblock" ein.

[msickel]

Super, vielen Dank für die Antworten!

Martin

[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?