zoukankan      html  css  js  c++  java
  • DELPHI判断是否64位操作系统

    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; 

  • 相关阅读:
    基于JFinal中搭建wopi协议支撑办法
    mysql 增加列
    国王分金币
    口算题卡升级版本
    elasticsearch牛人的日志列表
    牛B的大数据库
    golang --rune
    golang ---rune与byte
    golang学习笔记--接口
    golang学习笔记--函数和方法
  • 原文地址:https://www.cnblogs.com/qingsong/p/3507211.html
Copyright © 2011-2022 走看看