OSVERSIONINFOEX

type OSVERSIONINFOEX = record

  dwOSVersionInfoSize: DWORD;

  dwMajorVersion: DWORD;

  dwMinorVersion: DWORD;

  dwBuildNumber: DWORD;

  dwPlatformId: DWORD;

  szCSDVersion: array [0..127] of char;

  wServicePackMajor: Word;

  wServicePackMinor: Word;

  wSuiteMask: Word;

  wProductType: Byte;

  wReserved: Byte;

end;