Skip to content

Instantly share code, notes, and snippets.

View xingfuqiu's full-sized avatar
👋
不写代码了!

David Qiu xingfuqiu

👋
不写代码了!
View GitHub Profile
@xingfuqiu
xingfuqiu / IsWin64.pas
Created August 15, 2012 02:59 — forked from melice/IsWin64.pas
Delphi:检查Windows系统是否为64bit(check if is windows 64bit)
function IsWin64: Boolean;
var
Kernel32Handle : THandle;
IsWow64Process : function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL; stdcall;
GetNativeSystemInfo : procedure(var lpSystemInfo: TSystemInfo); stdcall;
isWoW64 : Bool;
SystemInfo : TSystemInfo;
const
PROCESSOR_ARCHITECTURE_AMD64 = 9;
PROCESSOR_ARCHITECTURE_IA64 = 6;