主页
Top.Mail.Ru Yandeks.Metrika
论坛:“WinAPI”;
当前存档:2002.04.25;
下载:[xml.tar.bz2];

向下

如何确定Windows的版本(95,98,me,nt,2000,xp)? 找到类似的分支


Tundra   (2002-02-17 15:37) [0]

对于这个愚蠢的问题,我深表歉意,但我没有在虚假的情况下发现这个问题……



Poirot   (2002-02-17 16:45) [1]

Mona版本号-这很容易...
但是,过去98天到底是多少...我也很感兴趣



Raptor   (2002-02-17 20:12) [2]

GetVersionEx



Poirot   (2002-02-18 02:38) [3]

那名字怎么称呼! 您可以尝试...我知道这一点,但是文本中有更新的数量和版本...



ZEE   (2002-02-18 03:58) [4]

在注册表中,如下所示:
HKEY_LOCAL_MACHINE \ SOFTWARE \微软\的Windows \ CurrentVersion
还有Version,VersionNumber,ProductName等。
仅在NT中可以有所不同... WindowsNT \ CurrentVersion-似乎是这样



Dimka Maslov   (2002-02-18 13:01) [5]

http://dims.gpsm.ru/files/index_en.php?page=system.htm&ref=GetOperatingSystem.

您可以下载该模块,该链接位于页面底部,它具有定义操作系统的GetOperatingSystem函数。



Ogu   (2002-02-20 21:58) [6]

您只能确定今天现有Windows的版本(或者版本不是问题,问题在说明中)。 未来等待我们的是未知数!
同时,抓到:
________________________________________________________________
常量

{操作系统常数}
cOsUnknown = -1;
cOsWin95 = 0;
cOsWin98 = 1;
cOsWin98SE = 2;
cOsWinME = 3;
cOsWinNT = 4;
cOsWin2000 = 5;
cOsWinXP = 6;


函数GetOperatingSystem:整数;
VAR

osVerInfo:TOSVersionInfo;
majorVer,minorVer:整数;
开始

结果:= cOsUnknown;
{设置操作系统类型标志}
osVerInfo.dwOSVersionInfoSize:= SizeOf(TOSVersionInfo);
如果GetVersionEx(osVerInfo)那么
开始
majorVer:= osVerInfo.dwMajorVersion;
minorVer:= osVerInfo.dwMinorVersion;
的案例osVerInfo.dwPlatformId
VER_PLATFORM_WIN32_NT:{Windows NT / 2000}
开始
如果majorVer <= 4,则
结果:= cOsWinNT
否则,如果(majorVer = 5)AND(minorVer = 0),则
结果:= cOsWin2000
否则,如果(majorVer = 5)AND(minorVer = 1),则
结果:= cOsWinXP
其他
结果:= cOsUnknown;
结束;
VER_PLATFORM_WIN32_WINDOWS:{Windows 9x / ME}
开始
如果(majorVer = 4)AND(minorVer = 0),则
结果:= cOsWin95
否则,如果(majorVer = 4)AND(minorVer = 10),则
开始
如果osVerInfo.szCSDVersion [1] =“ A”,则
结果:= cOsWin98SE
其他
结果:= cOsWin98;
结束
否则,如果(majorVer = 4)AND(minorVer = 90),则
结果:= cOsWinME
其他
结果:= cOsUnknown;
结束;
其他
结果:= cOsUnknown;
结束;
结束
其他
结果:= cOsUnknown;
结束;

过程TForm1.Button1Click(Sender:TObject);
开始

ShowMessage(IntToStr(GetOperatingSystem));
结束;



Страницы: 1 整个分支

论坛:“WinAPI”;
当前存档:2002.04.25;
下载:[xml.tar.bz2];

楼上





内存:0.56 MB
时间:0.02 c
14-81050
听起来
2002-03-20 02:00
2002.04.25
紧急问题


1-80985
Koks的
2002-04-12 13:34
2002.04.25
TStringGrid ... PAMAGITE!


6-81029
亚历山大
2002-02-13 13:45
2002.04.25
如何使用TNMStrm确认一些事情?


4-81116
歌曲
2002-02-19 17:08
2002.04.25
WM_POWERBROADCAST抓住铁路。 模式和返回


3-80761
alexandervasjuk
2002-04-03 14:29
2002.04.25
IBDataSet:在Grid中编辑





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский