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;
Остальные 20 - чистой воды лапша на уши.