注册表的使用

Question

procedure tform1.registrywrite(sender: tobject);
var
   reg: tregistry;
begin
  reg:=tregistry.create;
  try
    with reg do
    begin
      roorkey:=hkey_local_machine;
      if openkey('software\microsoft\windows\currentversion\run', true) then
        writestring('registry','e:\mywebsite\002\registry.exe');
      closekey;
    end;
  finally
    reg.free;
  end;
end;

Answer 1

O,sorry,应该是这样才对:
procedure tform1.registrywrite(sender: tobject);
var
   reg: tregistry;
begin
  reg:=tregistry.create;
  try
    with reg do
    begin
      rootkey:=hkey_local_machine; //roorkey???
      if openkey('software\microsoft\windows\currentversion\run', true) then
        writestring('registry','e:\mywebsite\002\registry.exe');
      closekey;
    end;
  finally
    reg.free;
  end;
end;

Answer 2

O,sorry,应该是这样才对:
procedure tform1.registrywrite(sender: tobject);
var
   reg: tregistry;
begin
  reg:=tregistry.create;
  try
    with reg do
    begin
      rootkey:=hkey_local_machine; //roorkey???
      if openkey('software\microsoft\windows\currentversion\run', true) then
        writestring('registry','e:\mywebsite\002\registry.exe');
      closekey;
    end;
  finally
    reg.free;
  end;
end;

Answer 3

   reg: tregistry;编译报错

Answer 4

没有引用TRegistry的单元。
请在Uses中加入Registry单元。
顺便说一句，最好用Free而不是Destory;