API函数：GerVersionEx怎么用？

Question

小弟想用在程序里显示操作系统信息，知道有GerVersionEx()这个API函数，但不知道函数在哪个库里面？就是在Use语句中应该加上什么单元？

Answer 1

一般都在windos单元里边吧，这个函数是判断操作系统类别的

Answer 2

function IsWin9x: Boolean;
var
  OsInfo: TOSVERSIONINFO;
begin
  OsInfo.dwOSVersionInfoSize := sizeof(TOSVERSIONINFO);
  GetVersionEx(OsInfo);
  Result := (OsInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS);
end;再给你其他值:VER_PLATFORM_WIN32s Win32s on Windows 3.1.  
VER_PLATFORM_WIN32_WINDOWS Win32 on Windows 95 or Windows 98. For Windows 95, dwMinorVersion is zero. For Windows 98, dwMinorVersion is greater than zero. 
 
VER_PLATFORM_WIN32_NT Win32 on Windows NT. 可以根据这个值与上面的值比较然后确定是什么OS.

Answer 3

delphi开发与技巧 里有详细的说明，api函数都在windows单元里。

Answer 4

编译错误信息：
Undeclared identifier: "GerVersionEx"哈哈，仔细一看，竟然是“Get”写成了"Ger"