delphi 有什么命令可以判断当前的系统是win98还是win2000还是winXP？

Question

delphi 有什么命令可以判断当前的系统是win98还是win2000还是winXP？

Answer 1

type
TWin32Version = (wvUnknown,
wvWin95,
wvWin98,
wvWinNT,
wvWin2000) ;function GetWinVersion: TWin32Version;
begin
Result := wvUnknown;
if Win32Platform = VER_PLATFORM_WIN32_WINDOWS then
if (Win32MajorVersion > 4) or
((Win32MajorVersion = 4) and
(Win32MinorVersion > 0)) then
Result := wvWin98
else
Result := wvWin95
else
if Win32MajorVersion <= 4 then
Result := wvWinNT
else
if Win32MajorVersion = 5 then
Result := wvWin2000
end;
转自:http://aboutdelphi.blogspot.com/2006/10/windows.html