iswinnt.pas

来自「VC++实现的时间同步程序」· PAS 代码 · 共 24 行

unit IsWinNT;

interface

function IsWindowsNT: boolean;

implementation

uses SysUtils, Windows;

function IsWindowsNT: boolean;

var
  VerInfo: TOsVersionInfo;

begin
  VerInfo.dwOSVersionInfoSize := sizeof(VerInfo);
  if not GetVersionEx(VerInfo) then
    raise exception.create('Could not get OS version info');
  result := (VerInfo.dwPlatformID >= 2); // treat future platforms as NT
end;

end.