einzelnen TRegistry-Wert auslesen

[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;