如何判断当前操作系统是Win2k还是XP?
解决方案 »
- 用户提取的数据量太大感觉整个软件速度运行太慢,有没有办法分批提取?
- 求最简单的FUNCTION,将ABCDEF,倒过来变成FEDCBA的写法!
- 关于ADOQUERY的一个有趣的问题!(很难)
- 高分求助webbrowser1控件问题,解决立马给分!
- 有人用过VCLSKIN吗?
- 请解析一下open array parameter是什么。多谢!
- 求助:关于编写IDE的问题
- 我的Delphi6怎不能存档?
- 再问一个关于Ole和Word的奇怪问题,在线等待!!!
- Delphi怎样加入第三方控件--必当酬谢
- 求<delphi7完美经典>的电子版
- 血泪求助:delphi6中如何用Samples下的shellviewtree
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion
XP是NT5.1
2000是NT5GetOSVersion的
看看Google的
_____________________
http://lysoft.7u7.net
SysUtils 下面的几个 Win32XXXX 就可得到,
如 SysUtils.Win32Platform , SysUtils.Win32MajorVersion
if (Win32Platform <> VER_PLATFORM_WIN32_WINDOWS) or (Win32MajorVersion > 4) then