Code: Select all
Procedure.l GetOSVersion()
Vers.l = OSVersion()
select vers
case #PB_OS_Windows_NT3_51
procedurereturn 1
case #PB_OS_Windows_95
procedurereturn 2
case #PB_OS_Windows_NT_4
procedurereturn 3
case #PB_OS_Windows_98
procedurereturn 4
case #PB_OS_Windows_ME
procedurereturn 5
case #PB_OS_Windows_2000
procedurereturn 6
case #PB_OS_Windows_XP
procedurereturn 7
case #PB_OS_Windows_Future
procedurereturn 8
endselect
procedurereturn -1
EndProcedure