//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 發布

轉載于:https://www.cnblogs.com/xe2011/archive/2012/06/02/2531629.html

總結

以上是生活随笔為你收集整理的reg怎样存取注册表信息的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。