注册表的读出与写入

在操作注册表时，首先要定义一个TREGESTRY对像，然后可以通过OPENKEY打开注册表，看一下代码  可以把一些系统的临时信息及配置信息写入到注册表里面了，这样就可以当成配置文件了。不再需求自己去新建一个配置文件。看一下代码吧。

 

procedure TForm1.Button1Click(Sender: TObject);
begin
  myregedit:=TRegistry.Create;
  myregedit.RootKey:=HKEY_CURRENT_USER;
  IF myregedit.OpenKey('/Software/a',True)  then
  begin
     ShowMessage('注册表打开成功');
     Edit1.Text:=myregedit.ReadString('name');
     Edit2.Text:=myregedit.ReadString('pwd');
     Edit3.Text:=myregedit.ReadString('bument');
     Edit5.Text:=DateToStr(myregedit.ReadDate('startdate'));
  end;
   myregedit.CloseKey;
  myregedit.Destroy;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  myregedit:=TRegistry.Create;
  myregedit.RootKey:=HKEY_CURRENT_USER;
  if myregedit.OpenKey('/software/a',false) then