registry auslesen

[Skullschildi]

Und wieder mal Hallo zum beliebtesten quiz zum Thema delphi.
heute:
Wie lese ich etwas aus der registrierung aus?
Meine damen und Herren, ich kann ihnen versichern, mit

Delphi-Quellcode:

Registry.openkey('software/meinproggi', false);
form1.caption := Registry.ReadString('zeichenkette');

werden Sie nichts in der titelleiste Ihres Formulars lesen können, weil sich nichts darin befindet.
Es gibt keine Fehlermeldung und auch kein Ergebnis.Nun, verehrte Zuschauer Zuhause, wie würden Sie das Problem lösen? Schnell geraten und fluchs eingetippt, zu gewinnen gibt es die Gewissheit, einen Menschen glücklich gemacht zu haben.
Die Leitungen sind nun geschaltet, viel erfolg.

Jetzt mal ernst:

HILFE!!!
--------
Danke für antworten

[Matze]

Hallo,

hast du RootKey gesetzt?


Edit: Und ohne das Herumgelabere würde man dir sicher schneller helfen können, da man sich nicht erst zur eigentlichen Frage durcharbeiten muss.

[Skullschildi]

ja,

Delphi-Quellcode:

 registry.rootkey := 'HKEY_LOCALMACHINE'

[Matze]

Hm, schau einfach mal im SDC vorbei. Evtl. steht einfach nichts in diesem Schlüssel.

[Skullschildi]

ich hab da schon was reingeschrieben, mit regedit. da steht was drin, will aber partu nich rauskommen

[Matze]

Dann zeig mal bitte den kompletten Code, der den String in die Registry schreibt oder nenne uns den kompletten Schlüssel.

Zusätzlich dann noch den kompletten Code zum Auslesen dieses Werts.

[Skullschildi]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, registry, ComCtrls, ShellCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ShellListView1: TShellListView;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
 registry : tregistry;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Registry := TRegistry.Create;
  try
Registry.RootKey := HKEY_LOCAL_MACHINE;
Registry.openkey('hardware/derbe/', false);
form1.caption := Registry.ReadString('himbeere');
finally
Registry.Free;
end;
end;

end.

in der registry steht unter
HKEY_LOCALMACHINE
|_Hardware
|_Derbe (Standart)
himbeere REG_SZ erdbeere

[Matze]

Bei mir geht es so ohne Probleme:

Delphi-Quellcode:

var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('Hardware\Derbe', False);
    Caption := reg.ReadString('Himbeere');
    reg.CloseKey;
  finally
    reg.Free;
  end;
end;

Die Caption enthält dann das Wort "Erdbeere".
Im Anhang die Struktur in der Registry.


Nachtrag: Bei OpenKey hast du deine Slashes etwas verwechselt.

[Luckie]

Ich halte es für etwas bedenklich eine Variable und eine Unit gleichen Namens zu verwenden.

[franktron]

Hast du Adminrechte wenn nicht ist das keine wunder denn nur Admins können HKEY_LOCAL_MACHINE lesen und schreiben