如何判断操作系统是2003，

Question

如何判断操作系统是2003，

Answer 1

procedure versions;var ver:integer;／／版本号 　 major:integer;／／主版本号 　 minor:integer;／／次版本号beginver:=getversion();／／获得版本号major:=ver and 255;／／获得主版本号minor:=(ver and 255＊256)div 256; ／／获得次版本号showmessage(‘系统版本号是：’＋inttostr(ver)); ／／显示版本号showmessage(‘系统主版本号是：'＋inttostr(major));／／显示主版本号showmessage(‘系统次版本号是：'＋inttostr(minor));／／显示次版本号end;
 

Answer 2

var
   osvi : TOSVERSIONINFO;
begin
   osvi.dwOSVersionInfoSize := sizeof(OSVERSIONINFO);
   if  GetVersionEx (osvi) then
   begin
       if (osvi.dwPlatformId = VER_PLATFORM_WIN32_NT) and
         (osvi.dwMajorVersion = 5) and (osvi.dwMinorVersion = 2) then
            ShowMessage('Microsoft Windows Server 2003 family');
   end;
end;

Answer 3

GetVersion取到的版本信息是一个整体，要取得某个主版本或者次版本很麻烦，用一个记录就可以简单解决了：procedure TForm1.Button1Click(Sender: TObject);TypeTVersion = packed recordWinVer,WinRev,DosRev,DosVer: byte;end;varV:Dword;beginV:=GetVersion;Label1.Caption :=Format('Windows Version:%d.%d,Dos Version:%d.%d',[TVersion(V).WinVer,TVersion(V).WinRev,Tversion(V).DosVer,TVersion(V).DosRev]);end;其实在Delphi5中有一些系统常量可以使用（在sysutils单元）：Win32BuildNumber //Build版本号Win32Platform //系统平台，2=Win32系统Win32MajorVersion //主版本号Win32MinorVersion //次版本号Win32CSDVersion //其他版本信息，例如"Service Pack 2"

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
type
 TOSVersionInfo= record
   dwMajorVersion:DWORD;
   dwMinorVersion:DWORD;
   dwPlatformId:DWORD;
   end;
 var
   a:TOSVersionInfo;
begin
   showmessage(inttostr(a.dwPlatformId));  //描述当前平台；
   showmessage(inttostr(a.dwMajorVersion));  //主版本号；
   showmessage(inttostr(a.dwMinorVersion ));//副版本号；end;end.借楼主地方问问
我会取得这些  可是这些号偶不懂什么意思~~~~~~~~~
可以不可以得到具体的比如“win2003”这样的？