Denne korte funksjonen vil returnere hvilken versjon av Windows applikasjonen kjører på
typen TWindowsVersion = (wvWin9x, wvWinNT, wvWin2k, wvWinXP);
funksjon GetWindowsVersion. TWindowsVersion; begynne Resultat: = wvWin9x; hvis Win32Platform = VER_PLATFORM_WIN32_NT så tilfelle Win32MajorVersion av 3..4: Resultat: = wvWinNT; 5: case Win32MinorVersion fra 0: Resultat: = wvWin2k; 1: Resultat: = wvWinXP; ende; ende; end;