delphi - 如何确定操作系统

Question

如何实现返回操作系统名称的函数？检测程序运行的环境？

win2000/xp/vista/win7 等...？

Answer 1

类似这样的事情:

function osver: string;
begin
  result := 'Unknown (Windows ' + IntToStr(Win32MajorVersion) + '.' + IntToStr(Win32MinorVersion) + ')';
  case Win32MajorVersion of
    4:
      case Win32MinorVersion of
        0: result := 'Windows 95';
        10: result := 'Windows 98';
        90: result := 'Windows ME';
      end;
    5:
      case Win32MinorVersion of
        0: result := 'Windows 2000';
        1: result := 'Windows XP';
      end;
    6:
      case Win32MinorVersion of
        0: result := 'Windows Vista';
        1: result := 'Windows 7';
        2: result := 'Windows 8';
        3: result := 'Windows 8.1';
      end;
    10:
      case Win32MinorVersion of
        0: result := 'Windows 10';
      end;
  end;
end;

实际上没有必要调用GetVersionEx，因为SysUtils.pas的initialization子句中有InitPlatformID。因此，全局常量 Win32MajorVersion 和 Win32MinorVersion (和 friend )已经被填充。​​