用delphi编写 任何完全访问注册表？

来源：百度知道 编辑：UC知道 时间：2024/06/06 16:25:39
请高手指点
用delphi编写一个完全访问注册表的程序 这个怎么写呢？
如果delphi不好写的话用vb都可以
急.....................
讲解为谢！！！！

uses Registry; //引用Registry单元
var //定义变量
r: TRegistry;
s: string;
begin
r:= TRegistry.Create;
r.RootKey:= HKEY_LOCAL_MACHINE;
if r.OpenKey('SOFTWARE\microsoft\windows', false) then
begin
s:= r.ReadString('UserName');
r.WriteString('UserName', 'New User' + s);
end;
r.CloseKey;
r.Free;
end;

uses Registy

就可完全访问注册表了

就是这样