reg怎样存取注册表信息

//reg怎样存取注册表信息 

uses Registry; //放在uses下面
var
  Form1: TForm1;
  My_key:Tregistry;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); //WriteString
begin
  My_key :=Tregistry.Create;
  My_key.RootKey := HKEY_LOCAL_MACHINE;
  My_key.OpenKey( 'SOFTWARE\reg',True) ;
  My_key.WriteString( 'user',EDIT1.text);
  My_key.WriteString( 'password',Edit2.text);
  showmessage( '保存成功！');
  Edit1.Clear;
  Edit2.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject); // ReadString
var
  str: String;
  getStr: string;
begin
  My_key :=Tregistry.Create;
  My_key.RootKey :=HKEY_LOCAL_MACHINE;
  My_key.OpenKey( 'SOFTWARE\reg',False) ;
  Str :=My_key.ReadString( 'user') ;
  getStr :=My_key.ReadString( 'password');
  Edit1.Text :=str;
  Edit2.Text :=getStr;
end;

//检查用户名和密码是否正确
procedure TForm1.Button3Click(Sender: TObject); 
begin
  My_key :=Tregistry.Create;
  My_key.RootKey :=HKEY_LOCAL_MACHINE;
  My_key.OpenKey( 'SOFTWARE\reg',False) ;
     if My_key.ReadString( 'user') <> '' then
      if (My_key.ReadString( 'user') =Trim(Edit1.Text)) and (My_key.ReadString( 'password') =Trim(Edit2.text)) then
        Showmessage( '用户名和密码正确。')
      else
        showmessage( '用户名和密码错误');
end;

通过 Wiz 发布