修改注册表

Question

uses registry;
var
  reg:tregistry;
begin
  reg:=tregistry.create;
  reg.rootkey:=hkey_local_machine;
  if reg.openkey('software',true) then
  begin
    if reg.openkey('Your SubKey',true) then
    begin
      reg.writestring('','Your Default Value');
      reg.writestring('Your Value Name','Your Value');
      //reg.writeInteger(.....) and so on .
    end;
  end;
  reg.free;

Answer 1

看一下 TRegistry 的帮助你就知道怎么做了。