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);
GetVersionExA(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.