如何检测32/64平台?

WeG*_*ars 0 delphi 32bit-64bit delphi-xe7

我需要检测应用程序是否在Win32/64上运行.

更新:人们报告依赖[HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0]键并不是一个好主意.

Dav*_*nan 9

您在问题中提供的代码有一些皱纹,但它确实可以正常工作.我怀疑你实际上并没有运行该代码,并且发生了错误并以某种方式发布了错误的代码.

FWIW,您应该使用TOSVersionfrom System.SysUtils来检查底层平台的位数.该TOSVersion.Architecture属性将告诉您底层平台是32位还是64位.