如何使32位Perl读取64位Windows注册表？

我有一个32位perl安装程序.使用这个我需要能够安装和卸载32位和64位应用程序.

安装32位和64位很好.卸载32位也没关系.

但是,卸载64位应用程序时遇到问题.

应用程序只知道应用程序的名称,如控制面板中的添加删除程序中所示.例如,它可能是“Winzip 14.0”,它是Winzip的显示名称.

我使用以下方法进行卸载：我遍历HKLM / Software / Microsoft / Windows / CurrentVersion / Uninstall并解析其中的密钥以查看Winzip是否匹配.如果是这样,我从那里得到卸载字符串.

my $register = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall";
    $HKEY_LOCAL_MACHINE->Open($register,$hKey)|| die $!;
    #Then parse all the nodes and fetch the uninstall string

如果应用程序是64位安装,则卸载信息将驻留在HKLM / Software / Microsoft / Windows / CurrentVersion / Uninstall中.

但是上面给出的perl安装程序代码试图从中读取
HKLM /软件/ WOW6432Node /微软/视窗/ CURRENTVERSION /卸载
它没有在那里找到安装.

那么如何在32位进程中运行Perl代码来读取64位配置单元中的注册表值？我知道RegOpenKey()API采用KEY_WOW64_64KEY参数.但由于它是Windows API,我不知道这是否有帮助.即便如此,还有其他选择吗？

解决方法

是的,您必须使用KEY_WOW64_64KEY,32位进程没有其他解决方法.从 this web page开始,可以直接从Perl调用Win32 API.