判断当前操作系统是否是64位操作系统

实际上就是通过判断64位操作系统上特有的函数来解决就可以，当然前提你的程序是32位的，64位的程序判断是没有必要的，因为32位上跑不起来。下面的代码抄自盒子上

的论坛帖子wang_80919 (Flying Wang)的回复：

function IsWOW64: BOOL;
  begin
    Result := False;
    if GetProcAddress(GetModuleHandle(kernel32), 'IsWow64Process') <> nil then
      IsWow64Process(GetCurrentProcess, Result);
  end;