如何判断操作系统是2003，

[huayuxing]

如何判断操作系统是2003，

[juliens]

procedure versions;

var ver:integer;／／版本号 　 major:integer;／／主版本号 　 minor:integer;／／次版本号

begin

ver:=getversion();／／获得版本号

major:=ver and 255;／／获得主版本号

minor:=(ver and 255＊256)div 256; ／／获得次版本号

showmessage(‘系统版本号是：’＋inttostr(ver)); ／／显示版本号

showmessage(‘系统主版本号是：'＋inttostr(major));／／显示主版本号

showmessage(‘系统次版本号是：'＋inttostr(minor));／／显示次版本号

end;

[hch_45]

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;

[juliens]

GetVersion取到的版本信息是一个整体，要取得某个主版本或者次版本很麻烦，用一个记录就可以简单解决了：

procedure TForm1.Button1Click(Sender: TObject);

Type

TVersion = packed record

WinVer,

WinRev,

DosRev,

DosVer: byte;

end;

var

V:Dword;

begin

V:=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"

[YOHOYOHO]

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”这样的？