VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法

    通常用VB 写的程序在32位系统上可以正常的运行,但到了64位系统中虽然可以运行但是无法修改OEM信息。经过查找原因可以发现,当我们在访问文件夹”SYSTEM32″的时候系统会自动转向到文件夹”SYSWOW64″下,当我们在访问某些注册表键值的时候,和文件转向类似,系统也会自动地把程序的访问转向到Wow6432Node下面。

    先来谈谈文件系统的转向,查找了一些资料,并没有VB相关的资料,但是可以查到2个相关函数:Wow64DisableWow64FsRedirection(关闭系统转向)和Wow64RevertWow64FsRedirection(打开系统转向)。
    VB的声明如下:

    
    Private Declare Function Wow64RevertWow64FsRedirection Lib "kernel32.dll" ()
    Private Declare Function Wow64DisableWow64FsRedirection Lib "kernel32.dll" ()
    
    

    然后用CALL Wow64DisableWow64FsRedirection语句来关闭文件系统的转向。

    再来谈谈注册表项的转向:

    这个依然没有VB方面的资料,但是知道有函数RegOpenEx(VB有这个函数,用法见API浏览器)可以决定是否转向,只要在函数的samDesired【Long】参数上加256(&H100)就可以访问64位的注册表了。由于API访问注册表代码较多就不往上贴了。