Delphi中如何判断Windows是98还是NT?

馮強 2002-09-03 02:57:22

是不是使用IsWinNT()，这个函数需要uses什么库呢？如果无此函数，如何判断？

...全文

60 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

dext 2002-09-03

打赏
举报

GetVersionEx

happyjoe 2002-09-03

打赏
举报

SysUtils单元有一组变量：
Win32Platform
Win32MajorVersion
Win32MinorVersion
Win32BuildNumber
Win32CSDVersion
可以判断出操作系统的版本。

具体意思：
Win32MajorVersion：
Windows 95 4
Windows 98 4
Windows Me 4
Windows NT 3.51 3
Windows NT 4.0 4
Windows 2000 5
Windows XP 5
Windows .NET Server 5

Win32MinorVersion：
Windows 95 0
Windows 98 10
Windows Me 90
Windows NT 3.51 51
Windows NT 4.0 0
Windows 2000 0
Windows XP 1
Windows .NET Server 1

Win32Platform：
VER_PLATFORM_WIN32s --- Win32s on Windows 3.1.
VER_PLATFORM_WIN32_WINDOWS --- Windows 95, Windows 98, or Windows Me.
VER_PLATFORM_WIN32_NT --- Windows NT 3.51, Windows NT 4.0, Windows 2000, Windows XP, or Windows .NET Server.

更详细的说明查阅MSDN中关于GetVersionEx 函数和OSVERSIONINFO结构的说明。

erickleung 2002-09-03

打赏
举报

if
(Win32Platform <> VER_PLATFORM_WIN32_WINDOWS)
or (Win32MajorVersion > 4) then
begin
.....do anything for winNT or greater

end;

DongXF 2002-09-03

打赏
举报

function IsWinNt: Boolean;
var
WinVersion: TOSVersionInfo;
begin
WinVersion.dwOSVersionInfoSize := SizeOf(WinVersion);
GetVersionEx(WinVersion);
Result := WinVersion.dwPlatformId = VER_PLATFORM_WIN32_NT;
end;