unit1.pas

注册表可视化读取DELPHI控件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RegVar, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    RegVar1: TRegVar;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Memo1: TMemo;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{ http://www.q311.cn/
  注册表可视化读取控件，直接设计时设定各键值

  }
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  RegVar1.ReadFrom;//读取注册表内容
  edit1.Text:=Regvar1.Fields.RegValue['Name'];
  edit2.Text:=Regvar1.Fields.RegValue['Count'];
  edit3.Text:=Regvar1.Fields.RegValue['tt'];
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  Regvar1.Fields.RegValue['Name']:=edit1.Text;
  Regvar1.Fields.RegValue['Count']:=edit2.Text;
  Regvar1.Fields.RegValue['tt']:=edit3.Text;
  RegVar1.WriteTo;//保存注册表内容
end;

end.