win7 64位下注册表写权限

[batmanpy]

请问大牛，win7 64位下注册表写权限怎么取得，delphi xe5 ,

MyReg.RootKey := HKEY_CURRENT_USER;
  if MyReg.KeyExists('\SOFTWARE\Policies\Microsoft\Internet Explorer\Main') = False  then
  begin
    MyReg.CreateKey('\SOFTWARE\Policies\Microsoft\Internet Explorer\Main');
  end;
  MyReg.OpenKeyReadOnly('\SOFTWARE\Policies\Microsoft\Internet Explorer\Main');
  if MyReg.ReadString('Start Page') = '' then
  begin
    MyReg.WriteString('Start Page', 'http://www.baidu.com/');   //这里报错
  end;

试过右键管理员权限运行，没用。

[lyhoo163]

修改注册表的权限

XP 32位系统的修改注册表，比较容易上手。但进入Win7 64位，Windows为防止恶意修改，对修改注册表作出相应的限制。使用原有的代码对注册表的修改出现了权限的问题。
解决修改注册表的权限，通过以下二种办法：

一、用户就是管理员的身份，可以直接通过代码修改注册表。

二、通过修改代码，对注册表进行修改
在创建Reg时，要加入参数，这样就能获取相关权限： reg:=Tregistry.create(KEY_ALL_ACCESS or $0100);

同时，要注意32位与64位的注册表的键值不同。比如，系统自启动的键值就有区别：
32位 Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',False);
64位：Reg.OpenKey('\Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Run',False)