Registry HK_LM ReadOnly ohne Adminrechte ?

[CCRDude]

Die ganze Redirection ist aber etwas übertrieben für diesen Fall. Hier reicht es für den Zugriff auf den 64-bit-Teil eigentlich, das Property Access anzupassen (Stichwort KEY_WOW64_64KEY). Wenn ich mich recht erinnere, hatte OpenKeyReadOnly da auch noch Bugs. Eventuell also lieber OpenKey und vorher Access := KEY_READ or KEY_WOW64_64KEY (o.ä.).

[DataCool]

habe obrigen Sourcecode nochmals angepasst, leider immer noch erfolglos.
Besonders zu erwähnen ist vielleicht die Entwicklung unter D7 bei diesem Projekt.
Des Weiteren tritt das Problem wahrscheinlich nur auf meiner Entwicklungsmaschine W7 64Bit auf,
produktiv brauche ich definitiv im Moment nur Zugriff auf 32Bit XP-Registry.
Trotzdem würde ich der Ursache gerne auf den Grund gehen.

Ich komme im obrigen Code ja gar nicht zum OpenKey / OpenKeyReadOnly,
der Aufruf Reg.KeyExist schläfgt immer fehl ....

Noch Ideen ?

Danke & Gruß

Data

[DataCool]

Habe jetzt selber die Lösung gefunden,
wenn mann TRegistry nicht benutzt und dann die schon oben genannten Tipps berücksichtigt,
dann klappt's auch mit dem Nachbarn

Delphi-Quellcode:

function HiddenUserAccountExist : Boolean;
const
   cRegKey = 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList';
   cKEY_WOW64_64KEY = $0100;   // <--- für ältere Delphi Versionen

var aKey : HKEY;
    dwType : DWORD;
    dwLen  : DWORD;
    iRes   : Integer;
begin
  Result := False;
  iRes := RegOpenKeyEx(HKEY_LOCAL_MACHINE, cRegKey, 0, KEY_READ or cKEY_WOW64_64KEY, aKey);
  if iRes = ERROR_SUCCESS then begin
    try
      Result := RegQueryValueEx(aKey,'SomeUser', nil, @dwType, nil, @dwLen) = ERROR_SUCCESS;
    finally
      RegCloseKey(aKey);
    end;
  end;
end;

Danke nochmal an alle die sich beteilgt haben,

Greetz Data

[Popov]

Nur mal so als Nachtrag: auch bei der Registry kann man genau wie bei Dateien Berechtigungen vergeben. Ob man also lesen oder schreiben kann, kann man ermitteln in dem man einfach auf Berechtigungen klickt.

Das sollte zwar kaum passieren, aber man kann auch sich selbst, ohne Adminrechte, Rechte entziehen. Und was ich kann, kann aber auch jedes böse Programm. Sollte zwar kaum passieren, aber wer weiß. Also zuerst gucken, kostet nichts.