delphi怎么一次性在注册表内存入多个项和键值

delphi如何一次性在注册表内存入多个项和键值.
RT.


[解决办法]
简单的例子就这样咯~：
procedure writeregister;
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\abc', True) then
begin
reg.WriteString('a','aaa');
reg.WriteString('b','bbb');
reg.WriteString('c','ccc');
...........
end;
finally
Reg.Free;
end;
end;
[解决办法]

Delphi(Pascal) code

uses Registry;var  Reg: TRegistry;begin  Reg:=TRegistry.Create;  Reg.RootKey:=HKEY_LOCAL_MACHINE;  try  {这个路径就是启动项,系统不同可能会不同,自己想办法取}  if (Reg.OpenKey('\SOFTWARE\MicroSoft\Windows\CurrentVersion\Run', True)) then  begin    if Reg.KeyExists('QQ') then       Reg.DeleteKey('QQ');    if Reg.KeyExists('Delphi') then       Reg.DeleteKey('Delphi');    Reg.WriteString('QQ', 'D:\QQ.exe'); {QQ路径}    Reg.WriteString('Delphi', 'D:\Delphi.exe'); {Delphi路径}  end;  finally    Reg.CloseKey;    Reg.Free;  end;end;