Examples Delphi

The classic response to this question is

var
Win32Platform: Integer = 0;
// VER_PLATFORM_WIN32s System is Win32s.
// VER_PLATFORM_WIN32_WINDOWS System is Windows 95.
// VER_PLATFORM_WIN32_NT System is Windows NT.