HKEY_LOCAL_MACHINE als User lesen

[fischi]

Hallo,

bisher lese ich Einträge in die Registry unter HKEY_LOCAL_MACHINE mit folgenden Code (Delphi4):

Delphi-Quellcode:

var HKLMPfadDB, PfadDB: string;
const registPfad: string  = '\Software\Eigene\Programmname';//Registrypfad
      defaultDB: string = 'D:\Mein\Pfad\Datei.mdb';
     
procedure TFRM_Main.FormCreate(Sender: TObject);
//####Registry Einträge lesen#############
//####Pfad zur Datenbank
begin
  regist:= TRegistry.Create;
  regist.RootKey:= HKEY_LOCAL_MACHINE;
  regist.OpenKeyReadOnly(registPfad+'\Datenbank');
  if length(regist.ReadString('Pfad_DB')) = 0
  then begin
          MessageDlg('HKEY_LOCAL_MACHINE Lesefehler! Die Default Einstellungen werden gesetzt.',mtError,[mbOk],0);
          PfadDB:= defaultDB;
       end
  else PfadDB:= regist.ReadString('Pfad_DB');
 ShowMessage(PfadDB);
regist.Free;
end;

Funktioniert bis Win2k, bei WinXP leider nur mit Admin Rechten.
Mit Userrechten lande ich immer bei den Default Einstellungen.
Der Pfad ist natürlich in der Registry eingetragen und kann dort auch mit Regedit betrachtet werden. Wo ist da jetzt der Harken, was muß ich anpassen?

Danke schon mal

Thomas

[MagicAndre1981]

TRegistry.Create will immer mit Schreibrechten öffnen. Gib an, dass du nur lesen willst, dann klappt es.

[Bernhard Geyer]

Zitat von fischi:

Funktioniert bis Win2k, bei WinXP leider nur mit Admin Rechten.

Funktioniert auch unter Win2k nicht. Probier einfach mal den Code als Benutzer der Gruppe "Gast". Unter W2k haben die Hauptuser lokale Adminrechte (Ist normalerweise auch bei XP der Fall).

[Zacherl]

TRegistry.Create(KEY_READ)

[fischi]

Hallo,

Danke für Eure schnellen Antworten. Ein
regist:= TRegistry.Create(KEY_READ); brgingt mich nicht weiter. Da werden zu "viele Parameter" bemängelt. Ich dachte das nur lesen ist mit
regist.OpenKeyReadOnly(registPfad+'\Datenbank'); erledigt. Leider falsch gedacht. Immer noch ratlos...

Mit Win2k macht keinen Ärger (ebend nochmal getestet) - der Eintrag müß natürlich schon in der Registry stehen.

Fischi

[Bernhard Geyer]

Zitat von fischi:

brgingt mich nicht weiter. Da werden zu "viele Parameter" bemängelt.

Welche Delphi-Version. Bei sehr alten Delphi-Versionen gab es keine möglichkeit das mit dem "normalen" TRegistry zu erledigen.

Aber dafür könnst du deine TMyRegistry ableiten oder die fertigen Funktionen der JCL verwenden.

[fischi]

Hallo,

Zitat:

Welche Delphi-Version. Bei sehr alten Delphi-Versionen gab es keine möglichkeit
das mit dem "normalen" TRegistry zu erledigen.

Delphi4

Grüße Fischi

[Christian Seehase]

Moin Thomas,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Ich habe den Code mal etwas überarbeitet:

Delphi-Quellcode:

var
  regist : TRegistry;

begin
  regist:= TRegistry.Create;
  try
    regist.RootKey:= HKEY_LOCAL_MACHINE;
    if regist.OpenKeyReadOnly(registPfad+'\Datenbank') then begin
      try
        if length(regist.ReadString('Pfad_DB')) = 0 then begin
          MessageDlg('HKEY_LOCAL_MACHINE Lesefehler! Die Default Einstellungen werden gesetzt.',mtError,[mbOk],0);
          PfadDB:= defaultDB;
        end else begin
          PfadDB:= regist.ReadString('Pfad_DB');
        end;
      finally
        regist.CloseKey;
      end;
    end else begin
      ShowMessage('OpenKey fehlgeschlagen');
    end;
    ShowMessage(PfadDB);
  finally
    regist.Free;
  end;
end;

Man sollte immer sicherstellen, dass belegte Resourcen auch wieder freigegeben werden, deshalb try/finally beim Create und OpenKey.
Da OpenKeyReadOnly den Erfolg meldet (ich hoffe auch in D4 ), sollte man dass auch benutzen.

Wenn es fehlschlägt, dann prüf' mal was passiert, wenn Du den \ am Beginn des Pfades weglässt.

[fischi]

Hallo Christian, Hallo der Liste,

Dein Code funktioniert!

Zitat:

Da OpenKeyReadOnly den Erfolg meldet (ich hoffe auch in D4 ), sollte man dass auch benutzen.

Genau da ist der Fehler gewesen.

Das "\" in Pfad ist wirklich überflüssig. Ist noch gar nicht aufgefallen. Und mit der Freigabe der Resorcen ist wohl einiges bei probiern, kopieren und ändern unter den Tisch gefallen. Muß das jetzt eh sauber ins Programm einbauen. Noch einmal Danke und ein schönes WE

Thomas