急！急！急！急！ --〉如何在注册表中输入双字节的数值？

Question

特急！
 本人正在开发一个软件,需要在注册表中输入一个双字节的数值！
 例如：
  数值名称是： Contexts
  数值数据是： 4(十进制）0x00000004（十六进制）
 如何输入？？？？？？？？？？？？？？？？？？
 请告诉我有什么函数或者其他方法可以实现！
 非常感谢！！   
  

Answer 1

var reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('\SOFTWARE\Prog\', True);
  reg.WriteInteger('Contexts', 4);
  reg.Free;
end;