unit LibOSVersion; interface uses Windows, SysUtils; {$IF CompilerVersion < 21} //Delphi 2010 - 21 //Delphi 2009 - 20 //Delphi 2007 - 18.5 //Delphi 2006 - 18 //Delphi 2005 - 17 //Delphi 8 - 16 //Delphi 7 - 15 //Delphi 6 - 14 type POSVersionInfoExA = ^TOSVersionInfoExA; POSVersionInfoEx = POSVersionInfoExA; _OSVERSIONINFOEXA = record dwOSVersionInfoSize: DWORD; dwMajorVersion: DWORD; dwMinorVersi..