检测系统是哪个版本，用哪个函数！

Question

我要检测去当前是哪个系统，是WIN2000,还是WIN98，还是WIN XP在DELPHI中用哪个函数，哪个大哥给个答案！！

Answer 1

GetVersionEx or VerifyVersionInfo

Answer 2

TO： juliens(星星球愛思纯^_^)
    没有你给的系统函数啊

Answer 3

var
a:a:osversioninfo;begin
a.dwOSVersionInfoSize:=sizeof(a);
GetVersionex(a);
label1.Caption:=inttostr(a.dwOSVersionInfoSize );
label2.Caption:=inttostr(a.dwMajorVersion );
label3.Caption:=inttostr(a.dwMinorVersion);
label4.Caption:=inttostr(a.dwBuildNumber );
label5.Caption:=inttostr(a.dwPlatformId );
label6.Caption:=a.szCSDVersion;label2显示的是主版本号，label3显示的是次版本号
5.1 表示 WindowsXP
5.0 表示 Windows2000
Windows98 好像是4.10Label4显示的是编译号 ，WindowsXP是2600,Windows2000是2195
其他的我就不知道了
你自己多试试吧

Answer 4

等等：
上一个我写错一个地方因该市var
a:osversioninfo;