2012年3月10日
获取操作系统类型/版本以及是否是64位的函数
摘要： //以下代码均来自网络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 Re 阅读全文
posted @ 2012-03-10 00:18 Handll 阅读(696) 评论(0) 推荐(0)