winver.~pas

pipe类 pipe类 pipe类 pipe类 pipe类

unit WinVer;

interface

function GetWinVer: byte;

implementation

uses Windows, CmnTnC;

type
  PfnIsWow64Process = function(hProcess: THandle; var Wow64Process: BOOL): Boolean; stdcall;

var
  IsWow64Process: PfnIsWow64Process;

function IsWow64: BOOL;
begin
  IsWow64Process:=GetProcAddress(GetModuleHandle('kernel32'),'IsWow64Process');
  result:=false;
  if @IsWow64Process<>nil then
  begin
    IsWow64Process(GetCurrentProcess, result);
  end;
end;

function GetWinVer: byte;
var
  OS: TOSVersionInfo;
begin
  if IsWow64 then
  begin
    result:=WinX64;
    exit;
  end;
  FillChar(OS, SizeOf(OS), 0);
  OS.dwOSVersionInfoSize:=SizeOf(OSVersionInfo);
  GetVersionEx(OS);
  result:=Win98;
  case OS.DwMajorVersion of
    3: result:=WinNT3;
    4: case OS.DwMinorVersion of
         0: if OS.dwPlatformId = VER_PLATFORM_WIN32_NT
                                 then result:=WinNT4
                                 else result:=Win95;
         10: result:=Win98;
         90: result:=WinMe;
       end;
    5: case OS.DwMinorVersion of
         0: result:=Win2K;
         1: result:=WinXP;
         2: if IsWow64 then result:=WinX64
            else result:=Win2K3;
    end;
    6: case OS.DwMinorVersion of
         0: result:=WinVi32;
       end;
  end;

  //ShowMessage(format('Windows version: %d, DwMajorVersion: %d, DwMinorVersion: %d', [result, OS.DwMajorVersion, OS.DwMinorVersion]));
end;

end.