Delphi中判断操作系统是否是Windows7
2011-08-16 18:05
489 查看
Delphi2007编译的时候去掉GetVersionExA(@VI)中的@
function GetWindowsVersionString: AnsiString; var VI: TOSVersionInfoA; begin VI.dwOSVersionInfoSize := SizeOf(TOSVersionInfoA); if GetVersionExA(@VI) then with VI do Result := Trim( Format( '%d.%d build %d %s', [dwMajorVersion, dwMinorVersion, dwBuildNumber, szCSDVersion] ) ) else Result := ''; end; function GetWindowsVersion: String; //读取操作系统版本 var AWin32Version: Extended; os:string; begin os:='Windows '; AWin32Version := StrtoFloat(format('%d.%d' ,[Win32MajorVersion, Win32MinorVersion])); if Win32Platform=VER_PLATFORM_WIN32s then Result := os + '32' else if Win32Platform=VER_PLATFORM_WIN32_WINDOWS then begin if AWin32Version=4.0 then Result := os + '95' else if AWin32Version=4.1 then Result := os + '98' else if AWin32Version=4.9 then Result := os + 'Me' else Result := os + '9x' end else if Win32Platform = VER_PLATFORM_WIN32_NT then begin if AWin32Version=3.51 then Result := os + 'NT 3.51' else if AWin32Version=4.0 then Result := os + 'NT 4.0' else if AWin32Version=5.0 then Result := os + '2000' else if AWin32Version=5.1 then Result := os + 'XP' else if AWin32Version=5.2 then Result := os + '2003' else if AWin32Version=6.0 then Result := os + 'Vista' else if AWin32Version=6.1 then Result := os + '7' else Result := os ; end else Result := os + '??'; Result:=Result + ' '+GetWIndowsVersionString; end;
相关文章推荐
- DELPHI判断是否64位操作系统
- DELPHI判断是否64位操作系统
- delphi 中判断windows系统是否是64位系统
- 判断Windows操作系统的版本
- 利用C#判断当前操作系统是否为Win8及其以上版本的系统
- Java文件夹操作,判断多级路径是否存在,不存在就创建(包括windows和linux下的路径字符分析),兼容Windows和Linux
- windows 64位操作系统判断及重定向Redirection 示例
- C#实现判断操作系统是否为Win8以上版本
- [Windows编程] 如何判断操作系统是64位还是32位
- 判断一个字符串是否是时间表达式(DELPHI)
- Delphi Ole操作Word,判断是否有打开的文档,并且给关闭
- Delphi判断IP地址是否正确
- 判断windows进程是否存在
- 搜索一个问题 C、C++判断操作系统 是 Linux还是windows 还是Unix【编译器内置宏 探索(不是特别满意)】
- win32程序判断windows系统(是否为win7或是更高版本)
- Windows 下判断CPU是否64位
- java判断操作系统是windows还是linux
- delphi判断一个字符是否为汉字的最佳方法
- 判断tomcat端口是否占用(windows环境)
- userAgent,JS用户代理检测——判断浏览器内核、浏览器、浏览器平台、windows操作系统版本、移动设备、游戏系统