判断是否是64位操作系统
2010-01-01 23:52
489 查看
在看一个外国佬的代码的时候,看到一个API函数,然后随手查了查MSDN,原来是新加的用来判断是否是Win64位系统的,于是写了一个函数用来判断是否是64位操作系统:
代码 1 function IsWin64: Boolean;
2 var
3 Kernel32Handle: THandle;
4 IsWow64Process: function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL; stdcall;
5 GetNativeSystemInfo: procedure(var lpSystemInfo: TSystemInfo); stdcall;
6 isWoW64: Bool;
7 SystemInfo: TSystemInfo;
8 const
9 PROCESSOR_ARCHITECTURE_AMD64 = 9;
PROCESSOR_ARCHITECTURE_IA64 = 6;
begin
Kernel32Handle := GetModuleHandle('KERNEL32.DLL');
if Kernel32Handle = 0 then
Kernel32Handle := LoadLibrary('KERNEL32.DLL');
if Kernel32Handle <> 0 then
begin
IsWOW64Process := GetProcAddress(Kernel32Handle,'IsWow64Process');
GetNativeSystemInfo := GetProcAddress(Kernel32Handle,'GetNativeSystemInfo');
if Assigned(IsWow64Process) then
begin
IsWow64Process(GetCurrentProcess,isWoW64);
Result := isWoW64 and Assigned(GetNativeSystemInfo);
if Result then
begin
GetNativeSystemInfo(SystemInfo);
Result := (SystemInfo.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64) or
(SystemInfo.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_IA64);
end;
end
else Result := False;
end
else Result := False;
end;
需要注意是GetNativeSystemInfo 函数从Windows XP 开始才有, 而 IsWow64Process 函数从 Windows XP with SP2 以及 Windows Server 2003 with SP1 开始才有。 所以使用该函数的时候最好用GetProcAddress
代码 1 function IsWin64: Boolean;
2 var
3 Kernel32Handle: THandle;
4 IsWow64Process: function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL; stdcall;
5 GetNativeSystemInfo: procedure(var lpSystemInfo: TSystemInfo); stdcall;
6 isWoW64: Bool;
7 SystemInfo: TSystemInfo;
8 const
9 PROCESSOR_ARCHITECTURE_AMD64 = 9;
PROCESSOR_ARCHITECTURE_IA64 = 6;
begin
Kernel32Handle := GetModuleHandle('KERNEL32.DLL');
if Kernel32Handle = 0 then
Kernel32Handle := LoadLibrary('KERNEL32.DLL');
if Kernel32Handle <> 0 then
begin
IsWOW64Process := GetProcAddress(Kernel32Handle,'IsWow64Process');
GetNativeSystemInfo := GetProcAddress(Kernel32Handle,'GetNativeSystemInfo');
if Assigned(IsWow64Process) then
begin
IsWow64Process(GetCurrentProcess,isWoW64);
Result := isWoW64 and Assigned(GetNativeSystemInfo);
if Result then
begin
GetNativeSystemInfo(SystemInfo);
Result := (SystemInfo.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64) or
(SystemInfo.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_IA64);
end;
end
else Result := False;
end
else Result := False;
end;
需要注意是GetNativeSystemInfo 函数从Windows XP 开始才有, 而 IsWow64Process 函数从 Windows XP with SP2 以及 Windows Server 2003 with SP1 开始才有。 所以使用该函数的时候最好用GetProcAddress
相关文章推荐
- How to:Installshield判断操作系统是否为64位,并且为操作注册表进行设置
- How to:Installshield判断操作系统是否为64位,并且为操作注册表进行设置
- 判断是否是64位操作系统
- c#中判断操作系统是否为64位还是32位
- How to:Installshield判断操作系统是否为64位,并且为操作注册表进行设置
- 如何在安装程序中判断操作系统是否是64位 inno
- DELPHI判断是否64位操作系统
- inno 判断进程是否记录(win7 64位操作系统等可用)
- How to:Installshield判断操作系统是否为64位,并且为操作注册表进行设置
- 如何在安装程序中判断操作系统是否是64位 inno
- c#判断是否是64位操作系统方法
- DELPHI判断是否64位操作系统
- 判断CPU是否64位,以及linux操作系统是否64位
- 利用文本编辑器判断dll/exe是否为64位
- 判断CPU是否64位
- bat批处理判断系统32位或64位以及操作系统类型
- 判断linux是否32位和64位的方法
- C#判断操作系统是32位还是64位(超简单)
- 如何判断自己的操作系统是32位还是64位?
- 如何判断操作系统是64位还是32位