Delphi程序如何读写注册表

[zhshj1963]

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

[chendaiyin]

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;

[qwertyasd]

读注册表
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;

[chendaiyin]

记得在uses中加入registry单元

[zhshj1963]

谢谢