GetVersionEx在Windows 7上不工作?

在我的Windows7系统上,getVersionExWindowsAPI函数返回“6.0”,表示Windows Vista在运行时 should 返回“6.1”。

如果

function winver: string;
var
  ver: TOSVersionInfo;
begin
  ver.dwOSVersionInfoSize := SizeOf(ver);
  if GetVersionEx(ver) then
    with ver do
      result := IntToStr(dwMajorVersion) + '.' + IntToStr(dwMinorVersion) + '.' + IntToStr(dwBuildNumber) + ' (' + szCSDVersion + ')';
end;

这不是很奇怪吗?