unit windowsversion; interface uses windows; function Getwindowsversion() : integer; implementation {Getwindowsversion returns 1 for 95, 2 for 98, 3 for nt 3.51, 4 for nt 4, 5 for win2k and 6 for xp} function Getwindowsversion() : integer; var vr : TOSVersionInfo; getversion : integer; begin getversion:=0; vr.dwOSVersionInfoSize:= sizeof(vr); fillchar(vr.szCSDVersion,125,20); GetVersion(vr); case vr.dwPlatformId of 1 : if vr.dwMinorVersion=0 then getversion:=1 else if vr.dwMinorVersion=10 then getversion:=2; 2 : begin if vr.dwMajorVersion=3 Then getversion:=3; if vr.dwMajorVersion=4 then getversion:=4; if vr.dwMajorVersion>=5 then begin if vr.dwMinorVersion=0 then getversion:=5 else getversion:=6; end; end; end; result:=getversion end; end.