einzelnen TRegistry-Wert auslesen

[Counter909]

Zitat von Luckie:

Debug deinen Code doch mal bzw. bau eine ordentliche Fehlerbehandlung ein:

Delphi-Quellcode:

uses
  Registry;

procedure Foobar;
var
  reg: Tregistry;
  sl: TStringList;
begin
  reg := TRegistry.Create(KEY_READ);
  try  // try-finally Registry
    reg.rootkey:= HKEY_LOCAL_MACHINE;
    if reg.OpenKey('Software\Borland', False) then
    begin
      sl := TStringlist.Create;
      try  // try-finally Stringlist
        try  // try-except Registry + Stringlist
          reg.GetKeyNames(sl);
          sl.SaveToFile('D:\test.txt');
        except  // try-except Registry + Stringlist
          raise Exception.Create(SysErrorMessage(GetLastError));
        end;
      finally  // try-finally Stringlist
        sl.Free;
      end; 
      reg.CloseKey;
    end 
    else  // raise exception if reg.OpenKey fails
      raise Exception.Create(SysErrorMessage(GetLastError));
  finally  // try-finally reg
    reg.Free;
  end;
end;

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

Fehler korrigiert. Dummer DP Debugger/Compiler.

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
versteht ihr ?


schonmal vielen dank für di zahlreichen Hilfen und Antworten

mfg
counter

[edit=Luckie]Zitat-Tags korrigiert. Mfg, Luckie[/edit]