function GetOSVersion: Cardinal;
var
  OSVersionInfo: TOSVersionInfo;
begin
  Result := 0;
  FillChar(OSVersionInfo, Sizeof(OSVersionInfo), 0);
  OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);
  if GetVersionEx(OSVersionInfo) then
    if OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
    Result :=  OSVersionInfo.dwMajorVersion * 10 + OSVersionInfo.dwMinorVersion;
end;