delphi 如何修改 注册表 里的 某一键值？

delphi 如何修改 注册表 里的 某一键值？ HKEY_CURRENT_USER\Software\UnRegister 下的AstrictA（dword） 里面的键值修改为"0",最好有例子 谢谢

追问：您看看这个还是不能更改HKEY_CURRENT_USER\Software\QQ游戏.key\UnRegister下AstrictA的键值呀？？
有您有QQ吗？我的qq 292368008 方便我加您

答案：因为你没说到键名,所以我假设键名是Path,键类型为字符串型

uses Registry; 

var 
Reg :TRegistry; 
begin 
Reg := TRegistry.Create; 
try 
with Reg do 
begin 
RootKey := HKEY_LOCAL_MACHINE; 
if OpenKey('software\delphi',false) then 
if ReadString('Path') = 'c:\delphi.exe' then 
begin 
showmessage('键值不用修改'); 
Exit; 
end 
else 
WriteString('Path','c:\delphi.exe') 
else 
showmessage('打开项失败,请检查项是否存在'); 
end; 
finally 
Reg.Free; 
end;

其他：uses  Registry;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('Software\UnRegister ',True);
    Reg.WriteInteger('AstrictA', 0);
  finally
    Reg.Free;
  end;
end; 

上一个：求救关于delphi的Pchar的问题
下一个：delphi能把DLL文件设成RES资源吗?能直接在RES里注册DLL吗?