发信人: fishy()
整理人: cobe(1999-12-17 13:03:43), 站内信件
|
来自问专家(askpro.wol.com.cn)
可 以 有 很 多 办 法 来 确 定 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" ()
'例 子 代 码
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的 GetSystemM
etrics(SM_DBCSENABLED)。
--
Dim fishy As Friend
请在回复时顺便发个e-mail给我：
[email protected]
死鱼在此谢谢各位！
--------------------------------------
欢迎访问酷码工作室：http://comma.my163.net
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.37.18]
|
|