实际上就是通过判断64位操作系统上特有的函数来解决就可以，当然前提你的程序是32位的，64位的程序判断是没有必要的，因为32位上跑不起来。下面的代码抄自盒子上 的论坛帖子wang_80919 (Flying Wang)的回复： function IsWOW64: BOOL; begin Result := False;