Windows 운영 체제가 32비트인지 64비트인지 판단

4031 단어 windows
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;

http://blog.csdn.net/suiyunonghen/article/details/4870219
인터넷에는 이런 코드와 토론이 많은데, 특히 IsWow64Process 함수의 사용이 그렇다.
갑자기 생각: 32비트의 EXE만 실행할 때 OS가 32비트인지 64bit인지 판단해야 합니까?
만약 EXE 자체가 64bit라면 실행할 때 판단할 필요가 없다. OS는 반드시 64비트이다. 그렇지 않으면 실행할 수 없다.
그래서 저는 인터넷에서 많은 토론이 좀 쓸데없는 것 같지 않아요?

좋은 웹페이지 즐겨찾기