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; 

  • 相关阅读:
    项目职责
    hibernate配置文件hibernate.cfg.xml的详细解释
    Hibernate环境搭建
    struts2标签使用详解
    EL表达式
    getparameter()和getattribution()的区别的 java详细
    形式参数和实在参数
    JSTL详解实例
    论文ei,sci检索,JCR-SCI分区,中科院分区连接
    随机森林实例
  • 原文地址:https://www.cnblogs.com/qingsong/p/3507211.html
Copyright © 2011-2022 走看看