操作系统判断

摘　要：如何判定是Windows 95/98 还是 Windows NT 正在运行程
　关键字：OS Windows 检测
　类　别：API

在其中一个单元中加入以下代码:

type
TOSType = (ostUnknown,ostWin95,ostWinNT);

function OSType : TOSType;
var
osv : TOSVersionInfo;
begin
osv.dwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
Case osv.dwPlatformId of
VER_PLATFORM_WIN32_NT : Result := ostWinNT;
VER_PLATFORM_WIN32_WINDOWS : Result := ostWin95;
else Result := ostUnknown;
end; //Case
end;