享受;-)

Function Is64Bit() As Boolean

    Return My.Computer.FileSystem.SpecialDirectories.ProgramFiles.Contains("Program Files (x86)")

End Function

最快的方式:

if(IntPtr.Size == 8) {
    // 64 bit machine
} else if(IntPtr.Size == 4)  {
    // 32 bit machine
} 

注意:这是非常直接的，只有当程序不强制作为32位进程执行时(例如，在项目设置中通过<Prefer32Bit>true</Prefer32Bit>)，才能在64位上正确工作。

@foobar:你是对的，这太简单了;)

在99%的情况下，具有较弱系统管理员背景的开发人员最终无法意识到微软一直为任何人提供的枚举Windows的功能。

在这种情况下，系统管理员总是会编写更好、更简单的代码。

然而，有一件事需要注意，构建配置必须是AnyCPU，这个环境变量才能在正确的系统上返回正确的值:

System.Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE")

这将在32位Windows上返回“X86”，在64位Windows上返回“AMD64”。

我需要这样做，但我也需要能够作为一个管理员远程做到这一点，无论是哪种情况下，这似乎很适合我:

    public static bool is64bit(String host)
    {
        using (var reg = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, host))
        using (var key = reg.OpenSubKey(@"Software\Microsoft\Windows\CurrentVersion\"))
        {
            return key.GetValue("ProgramFilesDir (x86)") !=null;
        }
    }

我使用:

Dim drivelet As String = Application.StartupPath.ToString
If Directory.Exists(drivelet(0) & ":\Program Files (x86)") Then
    MsgBox("64bit")
Else
    MsgBox("32bit")
End if

这将获取应用程序启动的路径，以防您将其安装在计算机上的不同位置。此外，你也可以只使用一般的C:\路径，因为99.9%的计算机都在C:\中安装了Windows。

享受;-)

Function Is64Bit() As Boolean

    Return My.Computer.FileSystem.SpecialDirectories.ProgramFiles.Contains("Program Files (x86)")

End Function