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

发布时间：2020-12-15 23:37:04 所属栏目：大数据来源：网络整理

导读：我有一个32位perl安装程序.使用这个我需要能够安装和卸载32位和64位应用程序. 安装32位和64位很好.卸载32位也没关系. 但是,卸载64位应用程序时遇到问题. 应用程序只知道应用程序的名称,如控制面板中的添加删除程序中所示.例如,它可能是“Winzip 14.0”,它是W

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

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

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

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

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

my $register = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall";
    $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.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!