有关注册表加一个dword值

Question

WriteString是读写字符串的，应该用WriteInteger。
iniregedit.WriteInteger ('...',$ffff);(写入'0ffffh',即65535)。

Answer 1

能不能以上面的DisableRegistryTools给一个例子呢？

Answer 2

可以使用Tregistry，
use registry；
var reg：tregistry；
reg.bootkey：=HKEY_CURRENT_USER；
……
reg.writeinteger('DisableRegistryTool',1) ；
……
具体可以参考delphi帮助！

Answer 3

笔误，更改如下：
在use中加入registry；
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies',
True)//true，如没有则新建，false相反！
Reg.WriteInteger('DisableRegistryTool',1);
Reg.CloseKey;
Reg.Free;
end;

Answer 4

应该用
Reg.WriteBinary
如
var
  a:integer;
  Reg: TRegistry;
begin
a:=0x00000001;
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies',
True)//true，如没有则新建，false相反！
Reg.WriteBinary('abc',a,4);//第二个参数代表要写的值，第三个参数代表第二//个参数的长度有几个字节
Reg.CloseKey;
Reg.Free;
end;

Answer 5

记错了，WriteBinary应为WriteBinaryData