zoukankan      html  css  js  c++  java
  • Delphi 判断操作系统是32位或是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; 
    
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      if IsWin64 then
      begin
        showmessage('64位');
      end else
      begin
        showmessage('32位');
    
      end;
    end;
  • 相关阅读:
    javascript
    javascript
    javascript
    easyui datagrid checkbox multiple columns have been done do
    combogrid获取多个字段的方法
    jquery显示、隐藏div的方法
    纠正jQuery获取radio选中值的写法
    comgrid获取多选值
    xheditor
    java向图片上写字,两个图片合并的方法
  • 原文地址:https://www.cnblogs.com/windson/p/12507312.html
Copyright © 2011-2022 走看看