environment env
integer rtn
rtn = GetEnvironment(env)
IF rtn <> 1 THEN RETURN
debugbreak()
//CHOOSE CASE env.OSType
//
//CASE aix!
//
//...
//
//CASE Windows!, WindowsNT!
//
//...
//
//CASE ELSE
//
//RETURN
//
//END CHOOSE
uj5u.com熱心網友回復：
如何顯示 win2000 xp win203 win7 的版本呢？我用GetEnvironment(env)
試了一下 xp 和win7 都是WindowsNT!
有沒有辦法區分呢 謝謝
uj5u.com熱心網友回復：
environment 物件還有這些屬性:OSFixesRevision
OSMajorRevision
OSMinorRevision
查一下F1
uj5u.com熱心網友回復：
有沒有辦法區分呢uj5u.com熱心網友回復：
看OSMajorRevision，來判斷Windows版本
uj5u.com熱心網友回復：
頂2樓和4樓uj5u.com熱心網友回復：
2樓說的的很明白了 ，不用連代碼也貼出來吧uj5u.com熱心網友回復：
/*判斷WindowsOS版本型別*/Function uLong GetVersionExA( Ref s_osversioninfo lpVersionInfo ) Library "kernel32.dll"
global type s_osversioninfo from structure
ulong dwOSVersionInfoSize
ulong dwmajorversion
ulong dwminorversion
ulong dwbuildnumber
ulong dwplatformid
character szcsdverion[128]
end type
//====================================================================
// 名稱: of_OsVersion()
//--------------------------------------------------------------------
// 說明: 判斷WindowsOS版本型別
//--------------------------------------------------------------------
// 引數:(None)
//--------------------------------------------------------------------
// 回傳: string
//--------------------------------------------------------------------
// 作者: 陳先生 日期: 2008.01.03
//--------------------------------------------------------------------
// 修改歷史:
//
//====================================================================
s_OsVersionInfo lstr_VersionInfo
String ls_OsVersion,ls_Pack
Integer li_i
lstr_VersionInfo.dwosversioninfosize = 148
GetVersionExA( lstr_VersionInfo )
CHOOSE CASE lstr_VersionInfo.dwmajorversion
CASE 3
IF lstr_VersionInfo.dwminorversion = 51 THEN
ls_OsVersion = "Microsoft WinNT3.51"
END IF
CASE 4
CHOOSE CASE lstr_VersionInfo.dwminorversion
CASE 10
ls_OsVersion = "Microsoft Windows 98"
CASE 90
ls_OsVersion = "Microsoft Windows Me"
CASE 0
ls_OsVersion = "Microsoft WinNT4 OR Windows 95"
END CHOOSE
CASE 5
CHOOSE CASE lstr_VersionInfo.dwminorversion
CASE 0
ls_OsVersion = "Microsoft Windows 2000"
CASE 1
ls_OsVersion = "Microsoft Windows XP"
CASE 2
ls_OsVersion = "Microsoft Windows Server 2003"
END CHOOSE
CASE 6
CHOOSE CASE lstr_VersionInfo.dwminorversion
CASE 1
ls_OsVersion = "Microsoft Windows 7"
END CHOOSE
END CHOOSE
FOR li_i = 1 TO 128
ls_Pack = ls_Pack + lstr_VersionInfo.szcsdverion[li_i]
NEXT
ls_OsVersion = of_GB2BIG("作業系統：" + ls_OsVersion + " " + ls_Pack)
RETURN ls_OsVersion
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/69791.html
標籤：API 調用
上一篇：關于資料視窗中使用Graph控制元件，使其全屏顯示的問題
下一篇：pb dirlist 問題