32bit程序在64bit操作系统下处理重定向细节_注册表操作[2]

1> Delphi程序的TRegistry类无法对KEY_WOW64_64KEY 兼容。也就是说，TRegistry.Create(KEY_WOW64_64KEY or KEY_ALL_ACCESS) 这样是无效的。

2> SHDeleteKey这类Shellapi 对 KEY_WOW64_64KEY 不兼容。也就是说就算你关闭重定位机制，也无法对64bit的注册表操作。一律全部重定位到Wow64xxx 的位置。
    这是因为这类API没有KEY_WOW64_64KEY这个标志为的设置

3> 针对RegDeleteKeyEx这类带有Ex的注册表函数，不管你是否显示关闭和打开重定位机制，只要在参数设置KEY_WOW64_64KEY 或者 KEY_WOW32_32KEY 就可以直接操作 64BIT 或者 32BIT的注册表了。

下面来个代码例子 32bit程序无缝兼容于64bit操作系统, 同时删除32bit和64bit的注册表项HKEY_LOCAL_MACHINE/software/aaaa  [delphi伪代码]

  
  if IsWow64 then
  begin  //  如果是在64bit环境下运行32bit程序
     //  1 关闭从定向
    Wow64DisableWow64FsRedirection
    //  删除64bit的注册表信息  HKEY_LOCAL_MACHINE/software/aaaa 的项，包括子项
    RegOpenKeyEx(HKEY_LOCAL_MACHINE, software/aaaa ,  0, KEY_WOW64_64KEY or KEY_ALL_ACCESS, hkey_Opend) ;
    // 执行删除
    RegDeleteTree(hkey_Opend, nil) ;
    RegDeleteKeyEx(HKEY_LOCAL_MACHINE, software/aaaa, KEY_WOW64_64KEY or KEY_ALL_ACCESS, 0) ;
    RegCloseKey(hkey_Opend) ;
    // 2 恢复重定向
    Wow64RevertWow64FsRedirection

  end ;
  //  下面开始执行32bit的删除
  Reg_Operate := TRegistry.Create() ;
  Reg_Operate.RootKey := HKEY_LOCAL_MACHINE ;
  Reg_Operate.OpenKey('software/aaaa', False) ;
  Reg_Operate.DeleteKey('/software/aaaa') ;
  Reg_Operate.CloseKey() ;