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

Question

我有一个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/Software/WOW6432Node/Microsoft/Windows/CurrentVersion/Uninstall
并且它没有在那里找到安装.

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

Answer 1

是的，您必须使用 KEY_WOW64_64KEY，对于 32 位进程没有其他解决方法。从这个网页来看，直接从 Perl 调用 Win32 API 似乎是可能的。