怎样才可以得到当前操作系统的版本?

Question

RT
3X~

Answer 1

这个问题我已经回答几次了，可惜版主不给加入FAQ  ：）判断操作系统，除了用API以外，Delphi已经提供了一个简单的方法：SystUtils单元有一个全局变量Win32PlatForm，你可以直接在代码里面判断它的值确认操作系统类型。  
 
它的值的含义如下：  
 
Value                                                Meaning  
 
VER_PLATFORM_WIN32s                   System  is  Win32s.  
VER_PLATFORM_WIN32_WINDOWS            System  is  Windows  95.  
VER_PLATFORM_WIN32_NT                 System  is  Windows  NT.

Answer 2

关键是一个API getversionex ,这是只支持到Win2k的函数,你可以自己把XP的判断也加进去.
function GetSystem:string;
var getver:osversioninfo;
    //ret:longbool;
begin
  getver.dwOSVersionInfoSize :=148;
  //ret:=
  getversionex(getver);
  if getver.dwPlatformId =ver_platform_win32_windows then
    GetSystem:='Windows';
  IF GETVER.dwPlatformId =VER_PLATFORM_WIN32_NT THEN
    (if getver.dwMajorVersion=5 then GetSystem:='Windows 2000' else GetSystem:='Windows NT');
end;