如何判断当前的操作系统是win98还是win2000？(在线)

Question

win98还是win2000？(在线)
-------------
这个办法试试：
NOW函数返回的时间：
WIN98与2000不一样的

Answer 1

windows API
好像叫GetSystemInfo

Answer 2

procedure TCyan.MMOSInfomationClick(Sender: TObject);
var
  VersionInfo : TOSVersionInfo;
  OSName : String;
begin
  VersionInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  if Windows.GetVersionEx(VersionInfo) then
  begin
    with VersionInfo do
    begin
      case dwPlatformId of
      VER_PLATFORM_WIN32s : OSName := 'Win32s';
      VER_PLATFORM_WIN32_WINDOWS : OSName := 'Windows 95';
      VER_PLATFORM_WIN32_NT : OSName := 'Windows NT';
      end;
      OSName:=OSName + ' Version ' + IntToStr(dwMajorVersion)
      + '.' + IntToStr(dwMinorVersion) +#13#10+
      'Build ' + IntToStr(dwBuildNumber) + ': ' + szCSDVersion ;
    end;
  end;
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKeyReadOnly('\Software\Microsoft\Windows NT\CurrentVersion') then
      OSName:=OSName+#13#10+ReadString('ProductName');
    finally
      Free;
    end;
  Application.MessageBox(PChar(OSName),PChar('操作系统信息'),mb_ok);
end;

Answer 3

这个办法比较笨。。应该可以通过API实现吧。。

Answer 4

说错了。API是GetVersion;
var
  Version: DWORD;
begin
    Version:=GetVersion;
    if Version<$80000000 then //NT
end;

Answer 5

GetVersion函数
你查一下以前帖子，有这方面信息

Answer 6

var
  OS: TOSVersionInfo;
  OSName: String;
begin
  OS.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  if GetVersionEx(OS) = True then
  begin
    case OS.dwPlatformId of
      VER_PLATFORM_WIN32s : OSName := 'Windows 3.1/Win32s';
      VER_PLATFORM_WIN32_WINDOWS : OSName := 'Windows';
      VER_PLATFORM_WIN32_NT : OSName := 'Windows NT';
    end;    
  end;
end;