判断当前操作系统

sunjunfeng3 2005-01-30 06:55:35

用哪人API判断当前操作系统是不是 XP 或 2003

...全文

141 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

yalaso 2005-01-31

打赏
举报

getversion()

exu 2005-01-30

打赏
举报

http://community.csdn.net/Expert/topic/3184/3184817.xml?temp=.782818

kuki84 2005-01-30

打赏
举报

CheckWin32Version(5,1)返回真,系统是XP,以次类推
GetVersionEx这个API函数也可以得到更详细的信息
下面这个函数不是我写的,你可以参考
function GetVersion:OSType;
var
OSversion:TOSVersioninfo;
begin
OSversion.dwOSVersionInfoSize:=Sizeof(OSversion);
GetVersionEx(OSversion);
result:=OSUnKnown;
Case OSversion.dwPlatformId of
VER_PLATFORM_WIN32s:result:=OSWin31;
VER_PLATFORM_WIN32_NT:
begin
case OSversion.dwMajorVersion of
3:result:=OSWinNT3;
4:result:=OSWinNT4;
5:begin
if OSversion.dwMinorVersion=1 then
result:=OSWinXP
else
result:=OSWin2K;
end;
end;
end;
VER_PLATFORM_WIN32_WINDOWS:
begin
case OSVersion.dwMinorVersion of
0:
begin
if (Trim(OSversion.szCSDVersion)='B') then
result:=OSWin95R2
else
result:=OSWin95;
end;
10:
begin
if (Trim(OSversion.szCSDVersion)='A') then
result:=OSWin98SE
else
result:=OSWin98;
end;
90:result:=OSWinMe;
end;
end;
end;
end;

smiler007 2005-01-30