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