?? 如何在vb程序中確定win 95的語種.txt
字號:
可 以 有 很 多 辦 法 來 確 定 Win 95的 語 種 , 采 用 何 種 方 法 要 看 你 的 目 的 。 如 果 你 想 知 道 貨 幣 、 時 間 格 式 等 語 種 信 息 , 可 以 訪 問 WIN.INI的 [Intl]節 , 其 中 iCountry表 示 國 家 代 碼 , sCountry表 示 國 家 名 稱 。 如 果 你 想 獲 得 當 前 Win 95的 語 言 版 本 , 可 以 使 用 Win32 API的 GetOEMCP函 數 獲 得 當 前 系 統 的 國 家 代 碼 。 也 可 以 使 用 Windows API函 數 GetSystemDefaultLCID()。
LCID這 里 稱 之 為 “ 地 方 ” , 是 個 32位 的 位 的 值 , 用 于 為 現 成 或 系 統 標 識 語 言 和 平 臺 。 其 中 0~ 15位 指 出 語 言 。 0~ 15位 又 分 為 兩 個 部 分 。 其 中 0~ 9標 識 主 語 言 。 10~ 15標 識 語 言 的 一 個 子 集 。 所 以 我 們 的 思 路 是 先 得 出 系 統 的 地 方 值 , 然 后 取 出 第 10位 值 即 可 。
'語 言 常 數
Public Const LANG_CHINESE& = &H4
Public Const LANG_BULGARIAN& = &H2
Public Const LANG_CROATIAN& = &H1A
Public Const LANG_CZECH& = &H5
Public Const LANG_DANISH& = &H6
Public Const LANG_DUTCH& = &H13
Public Const LANG_ENGLISH& = &H9
Public Const LANG_FINNISH& = &HB
Public Const LANG_FRENCH& = &HC
Public Const LANG_GERMAN& = &H7
Public Const LANG_GREEK& = &H8
Public Const LANG_HUNGARIAN& = &HE
Public Const LANG_ICELANDIC& = &HF
Public Const LANG_ITALIAN& = &H10
Public Const LANG_JAPANESE& = &H11
Public Const LANG_KOREAN& = &H12
Public Const LANG_NEUTRAL& = &H0
Public Const LANG_NORWEGIAN& = &H14
Public Const LANG_POLISH& = &H15
Public Const LANG_PORTUGUESE& = &H16
Public Const LANG_ROMANIAN& = &H18
Public Const LANG_RUSSIAN& = &H19
Public Const LANG_SLOVAK& = &H1B
Public Const LANG_SLOVENIAN& = &H24
Public Const LANG_SPANISH& = &HA
Public Const LANG_SWEDISH& = &H1D
Public Const LANG_TURKISH& = &H1F
'函 數 聲 明
Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
'例 子 代 碼
Dim lngLCID As Long
Dim lngLangID As Long
lngLCID = GetSystemDefaultLCID
'取 低 10位
lngLangID = (lngLCID And (Not &HFC00))
Select Case lngLangID
Case LANG_CHINESE
MsgBox "您 使 用 的 是 中 文 Windows", vbInformation, "信 息 "
case LANG_ENGLISH
MsgBox "您 使 用 的 英 文 Windows",vbInformation,"信 息 "
End Select
但 要 注 意 : 如 果 你 的 程 序 依 賴 于 某 個 特 定 的 DLL, 它 支 持 的 語 種 可 能 與 當 前 系 統 的 語 種 不 同 , 因 為 某 些 軟 件 (特 別 是 微 軟 的 軟 件 )可 能 會 安 裝 一 些 版 本 比 較 新 的 DLL到 用 戶 的 系 統 中 , 通 常 這 些 DLL是 英 文 版 的 , 而 用 戶 使 用 的 系 統 可 能 是 中 文 版 的 , 所 以 檢 測 某 個 DLL的 語 言 版 本 可 以 使 用 WIndows API的 GetFileVersionInfo函 數 。 如 果 你 只 是 想 知 道 Win 95是 否 支 持 雙 字 節 , 可 以 使 用 WIndows API的 GetSystemMetrics(SM_DBCSENABLED)。
<END>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -