微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

如何使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.

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐