DELPHI判断是否64位操作系统
来源:互联网 发布:java语言程序设计 编辑:程序博客网 时间:2024/05/18 02:11
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;
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;
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;
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;
0 0
- DELPHI判断是否64位操作系统
- Delphi判断系统是否64位
- Delphi判断系统是否64位
- 判断是否是64位操作系统
- delphi 判断是64位系统还是32为操作系统
- delphi 判断是64位系统还是32为操作系统
- delphi 中判断windows系统是否是64位系统
- c#判断是否是64位操作系统方法
- 判断CPU是否64位,以及linux操作系统是否64位
- 判断主机操作系统是否为x64位
- 判断CPU是否64位
- 判断系统是否64位
- How to:Installshield判断操作系统是否为64位,并且为操作注册表进行设置
- 如何在安装程序中判断操作系统是否是64位 inno
- inno 判断进程是否记录(win7 64位操作系统等可用)
- 检测是否是64位操作系统
- 判断64位操作系统的api
- 读取64位系统注册表,判断操作系统
- Total Commander 使用技巧
- spring学习之@ModelAttribute运用详解
- 创建一个线程_续
- 程序开发中,资源文件的存放原则
- spring学习之@SessionAttributes运用详解
- DELPHI判断是否64位操作系统
- ArcGISServer服务访问时“Data not available”设置
- 使用node.js + express开发web应用笔记(3) - 模板页与局部视图
- Combination Sum II
- 在Code::Blocks里面设置SDL工程的方法
- android—两个月的沉积
- proguard-android.txt文件详解
- 乐视盒子,救砖。纪实,出现异常解析。
- ArrayList的clone方法探索