判断操作系统

Question

如何判断操作系统是95、98、me、xp……急等回复要有代码最好

Answer 1

type
   OsRecord = record
     PlattFormId: cardinal;
     PlattForm: string;
     Version:   string;
   end;var
 OS: TOSVersionInfo;
 OsRec: OsRecord;
begin
with OS do begin
 dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
 if GetVersionEx(OS) then begin
  OsRec.Version := Format('%d.%d (%d.%s)',[dwMajorVersion, dwMinorVersion,
                                           (dwBuildNumber and $FFFF), szCSDVersion]);
  OsRec.Plattform   := Plat(dwPlatformId);//函数在下面
  OsRec.PlattformId := dwPlatformId;
 end;
end; // with OS
end;function Plat(Pl: DWORD): string;
begin
  case Pl of
    VER_PLATFORM_WIN32s:        result := 'Win32s on Windows 3.1x';
    VER_PLATFORM_WIN32_WINDOWS: result := 'Windows 95/98';
    VER_PLATFORM_WIN32_NT:      result := 'Windows NT';
    else                        result := 'Unknow';
  end;
end;

Answer 2

那我的me为什么还是等于VER_PLATFORM_WIN32_WINDOWS

Answer 3

D:\Program Files\Borland\Delphi6\Source\Internet\WebAppDbgAbout.pas

Answer 4

但是他们的驱动程序库还有com、ado都不一样呀