如何用Delphi修改注册表？？ Delphi / Windows SDK/API - CSDN社区 community.csdn.net

use ...,registry,...
procedure TForm1.Button1Click(Sender: TObject);
var r:Tregistry;
begin
r := Tregistry.Create;
r.RootKey := HKEY_LOCAL_MACHINE;
r.OpenKey('SOFTWARE\youkey',true);
r.Writestring('youval','11111');
showmessage(r.Readstring('youval'));
r.Free;
end;