einzelnen TRegistry-Wert auslesen

[DeddyH]

Einen einzigen Wert? Dann schau Dir doch mal die TRegistry.Read...-Methoden an.

[Counter909]

also gut, ich bräuchte natürlich erst die namen und dann den entsprechenden Wert dazu.


readstring('') hatte ich schon versucht i-wie anzuwenden anstatt des keyvaluename, aber jedes mal immer nur leere .txt

[DeddyH]

Ja, kennst Du den Schlüssel und den Bezeichner nun im Voraus oder nicht?

[Luckie]

Zitat von Counter909:

genau so hatte ich das auch schonmal, es werden einfach nur die Unterdinger in .txt gespeichert, aber ich mmöchte ja den Wert eines einzelnen Wertes

Ach so. Es war etwas verwirrendm weil dein Code einfach nicht zu deiner Frage passte.

Wie schon gesagt, dann guck dir mal die TRegistry.ReadXYZ Methoden an. Vorausetzung ist natürlich, dass du den Schlüssel kennst und den Namen des Registrywertes den du auslesen willst.

[Counter909]

naja der schlüssel heißt : (standard) und dann gibt es ein wert, der "as312djkadaslek" in der Art ist.


jetzt hab ich einmal: regist.GetKeyNames(text);
text.SaveToFile('C:\test.txt');


der listet die namen alle gut auf, das geht ja auch problemlos


dan gibs ja regist.ReadString(xx);
z.add(x)
z.SaveToFile('C:\test.txt');

[Luckie]

Langsam, mein Sohn. Setzt dich noch mal fünf Minuten in die Ecke und überleg, was du willst und was du hast. Dann sagst du uns das mal und dann sehen wir weiter.

[Counter909]

hehe ok großer xD


langsam komm ich selber raus, daher nochmal hoffentlich deutlicher:


ich möchte in der Registry in einem BESTIMMTEN pfad ein Key auslesen und den dazugehörigen Wert.
den Pfad hab ich ja, nehme ich jetzt zum Beispiel mal:

Delphi-Quellcode:

regist.rootkey:= HKEY_LOCAL_MACHINE   
das Verzeichnis ist dann ('Software\Borland\Delphi\7.0')

dort möchte ich jetzt speziell z.B den Key mit dem Namen: "LMLIC" und einen Wert mit zum Beispiel: "UA23-231J-98D..." auslesen lassen

[Die Muhkuh]

Zitat von Counter909:

dort möchte ich jetzt speziell z.B den Key mit dem Namen: "LMLIC" und einen Wert mit zum Beispiel: "UA23-231J-98D..." auslesen lassen

Was wohl mit

StringVar := Registry.ReadString('LMLIC'); funktioniert

[Luckie]

Delphi-Quellcode:

uses
  Registry;

function Foobar: String;
var
  reg: TRegistry;
begin
  result := '';
  reg := TRegistry.Create(Key_Read);
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('Software\Borland\Delphi\6.0\Library', False) then
    begin
      try
        result := reg.ReadString('Search Path');
      except
        raise Exception.Create(SysErrorMessage(GetLastError));
      end;
    end
    else
      raise Exception.Create(SysErrorMessage(GetLastError));
  finally
    reg.Free;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  try
    s := Foobar;
    ShowMessage(s);
  except
    on E:Exception do
      ShowMessage(E.Message);
  end;
end;

[Counter909]

Delphi-Quellcode:

if regist.OpenKey('Software\Borland\.......\7.0', False) then
    begin
      text := TStringlist.Create;
      try
        try
          wert:=regist.ReadString('LMLIC');
          text.Add(wert);
          text.SaveToFile('C:\test.txt');

ok so müsste das dann doch gehen oder ?

Edit: oh gab schon wieder was neues..alles klar, das sieht doch erstmal gut aus ^^
erstmal danke, ich guck mir das mal an so