怎样准确的分辨现在操作系统类型：win98,win98se,winme,winxp,winnt4,win2000请给出详细代码！

Question

var
  Platform: string;
  BuildNumber: Integer;
  Version: string;
begin
  Version := '%d.%d ';
  case Win32Platform of
    VER_PLATFORM_WIN32_WINDOWS:
    begin
      Platform := 'Windows 95'; // do not localize
      BuildNumber := Win32BuildNumber and $0000FFFF;
      if Win32MinorVersion = 10 then
        Platform := 'Windows 98'; // do not localize
    end;
    VER_PLATFORM_WIN32_NT:
    begin
      if Win32MajorVersion >= 5 then
      begin
        Platform := 'Windows 2000';  // do not localize
        Version := '';
      end else Platform := 'Windows NT'; // do not localize
      BuildNumber := Win32BuildNumber;
    end;
    else
    begin
      Platform := 'Windows'; // do not localize
      BuildNumber := 0; // set to avoid compiler warning
    end;
  end;
  
  if (Win32Platform = VER_PLATFORM_WIN32_WINDOWS) or
    (Win32Platform = VER_PLATFORM_WIN32_NT) then
  begin
    if (Win32MajorVersion = 4) and (Win32MinorVersion = 10) then
      OS.Caption := Format('%s (%s %d.%d.%d %s)', [Platform, sBuild,
        Win32MajorVersion, Win32MinorVersion, BuildNumber, Win32CSDVersion])
    else if Win32CSDVersion = '' then
      OS.Caption := Format('%s %s(%s %d)', [Platform, Format(Version,
        [Win32MajorVersion, Win32MinorVersion]), sBuild, BuildNumber])
    else
      OS.Caption := Format('%s %s(%s %d: %s)', [Platform, Format(Version,
        [Win32MajorVersion, Win32MinorVersion]), sBuild, BuildNumber, Win32CSDVersion]);
  end
  else
    OS.Caption := Format('%s %d.%d', [Platform, Win32MajorVersion,
      Win32MinorVersion])
end;这是Delphi 6的目录下面的内容，原文件名：
\Delphi6\Source\Internet\WebAppDbgAbout.pas
现在明白了吗？