Delphi程序如何读写注册表

Question

我想编写这样的程序，程序在运行时把注册表信息加入Windows的注册表中；同时也在运行时可从注册表中读取和删除信息。请问：我要怎样才能实现对注册表的操作（运行态下）。谨请回答，详细到dephi或api的函数一级。谢谢！

Answer 1

var
 myreg:tregistry;
begin
 myreg:=tregistry.create;
 myreg.rootkey:=hkey_current_user;
 myreg.openkey
 ('software\microsoft\windows\currentversion\policies\explorer',true);
 myreg.writeinteger('restrictrun',0);
 myreg.closekey;
 end;

Answer 2

读注册表
 var
  RegF:TRegistry;
   msg:string;
begin   
RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
   RegF.OpenKey('SOFTWARE\hysoft\jjdb',true);
   edit1.Text:= RegF.ReadString('server');
   data.database.Caption:= RegF.ReadString('database');
   data.path.Caption:=regf.ReadString('path');
   edit2.Text:=regf.ReadString('uid');
   edit3.Text:=regf.ReadString('password');
finally
   RegF.CloseKey;
   RegF.Free;
End;
end;
写注册表！
var RegF:TRegistry;
begin
RegF:=TRegistry.Create;
RegF.RootKey:=HKEY_LOCAL_MACHINE;
try
   regf.CreateKey('SOFTWARE\hysoft\jjdb');
   RegF.OpenKey('SOFTWARE\hysoft\jjdb',true);
   RegF.WriteString('database',combobox1.Text);
   RegF.WriteString('path',ExtractFilePath(Application.ExeName));
   RegF.WriteString('server',edit1.Text);
   RegF.WriteString('uid',edit2.Text);
   RegF.WriteString('password',edit3.Text);
finally
   RegF.CloseKey;
   RegF.Free;
End;
end;