WinAPI: GetVersion - 获取系统版本号

//声明:
GetVersion: DWORD;


//举例:
var
  d: DWORD;
begin
  d := GetVersion;
  ShowMessage(IntToStr(d)); {170393861; 这是我现在使用的系统}
end;