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

请高手指点
用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;

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/sqsv8pss.html