如何判断当前操作系统？？UP有分！！

[bengbeng24]

如何判断当前操作系统？？并返回值？？？

[lxlsky]

up

[广州接入]

使用WindowsAPI函数.GetversionEX.
procedure GetVersionEX(var vi:TOSVersionInfo);
TOSVersionInfo = Record
dwOsVersionInfoSize :DWord;//参数大小
dwMajorVersion : DWORD;//主版本号
dwMinorVersion : DWORD;//副版本号
dwBuildNumber: DWORD;//操作系统的建立序号
dwPlatFormID : DWORD;//平台标志.
szCSDVErsion : array[0..126] of AnsiChar;
end;

[bengbeng24]

麻烦，请举个例子！！

[My_first]

其它上面的就可以了。

type
TOSVersion = (osUnknown, os95, os95OSR2, os98, os98SE, osNT3, osNT4, os2K, osME,osXP);

Function IsNT(var OS:string): boolean;//判断是否是NT系统
Function GetOS :TOSVersion; //获得操作系统

//获取操作系统
function GetOS;
var
OS :TOSVersionInfo;
begin
ZeroMemory(@OS,SizeOf(OS));
OS.dwOSVersionInfoSize:=SizeOf(OS);
GetVersionEx(OS);
Result:=osUnknown;
if OS.dwPlatformId=VER_PLATFORM_WIN32_NT then
begin
case OS.dwMajorVersion of
3: Result:=osNT3;
4: Result:=osNT4;
5: begin
if OS.dwMinorVersion>=1 then
Result:=osXP
else
Result:=os2K;
end;
end;
end
else
begin
if (OS.dwMajorVersion=4) and (OS.dwMinorVersion=0) then
begin
Result:=os95;
if (Trim(OS.szCSDVersion)='B') then
Result:=os95OSR2;
end
else
if (OS.dwMajorVersion=4) and (OS.dwMinorVersion=10) then
begin
Result:=os98;
if (Trim(OS.szCSDVersion)='A') then
Result:=os98SE;
end
else
if (OS.dwMajorVersion=4) and (OS.dwMinorVersion=90) then
Result:=osME;
end;
end;

//判断是否时NT系统
function IsNT(var OS:string): boolean;
var
OSVI :TOSVersion;
begin
OS:='不知道';
OSVI:=GetOs;
if OSVI=osNT3
then OS:='Window NT3';
if OSVI=OSNT4
then OS:='Window NT4';
if OSVI=os2K
then OS:='Winodw 2000';
if OSVI=os95
then OS:='Window 95';
if OSVI=os95OSR2
then OS:='Window 97';
if OSVI=os98
then OS:='Winodw 98';
if OSVI=os98SE
then OS:='Winodw 98SE';
if OSVI=osME
then OS:='Winodw ME';
Result:=GetOS in [osNT3,osNT4,os2K,osXP];
end;

[dicke]

UP

[boynicky]

学习中

[windofsun]

判断操作系统，除了用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.

[qxj]

up

[lyedit]

up!
学东西！

[xjkiller]

up

[lf43]

GetversionEX

[lovedata]

楼上的例子很好了

[guorui_wh]

up

[shanxia]

up!

[sanjianxia]

采用API函数：GetVersionEX
参数请看帮助系统。

[角落的青苔]

这个只是参考~~~~
**********************************
//判断操作系统
function TFuncs.OsIs:Integer;
begin
case Win32Platform of
VER_PLATFORM_WIN32s: Result:=32;
VER_PLATFORM_WIN32_WINDOWS: Result:=98;
VER_PLATFORM_WIN32_NT: Result:=2000;
else Result:=0;
end;
end;

[角落的青苔]

这个只是参考~~~~
**********************************
//判断操作系统
function TFuncs.OsIs:Integer;
begin
case Win32Platform of
VER_PLATFORM_WIN32s: Result:=32;
VER_PLATFORM_WIN32_WINDOWS: Result:=98;
VER_PLATFORM_WIN32_NT: Result:=2000;
else Result:=0;
end;
end;