, dette kort funktion vil vende tilbage, hvad version af windows anvendelse, er på nuværende tidspunkt., type,    twindowsversion = (wvwin9x, wvwinnt, wvwin2k, wvwinxp), funktion getwindowsversion: twindowsversion; begynder,    resultat: = wvwin9x;,   , hvis win32platform = ver_platform_win32_nt så,      sag win32majorversion,        3... 4: resultat: = wvwinnt;,        5: sag win32minorversion,             0: resultat: = wvwin2k;,            . resultat: = wvwinxp;,          ;,     ;,;,,,