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 发布