首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

怎么获取windows语言包内容

2013-02-24 
如何获取windows语言包内容比如,我要找到 Windows 资源管理器,那如果我在程序里用“Windows 资源管理器”的

如何获取windows语言包内容
比如,我要找到 Windows 资源管理器,那如果我在程序里用“Windows 资源管理器”的话我的程序就只兼容中文的Windows了。
有什么办法得到当前Windows的某些语言吗?
[解决办法]
一般要查找某些程序都用进程的方式方便些,比如 Windows 资源管理器应该是explorer

vb也可以获取当前语言了,用api

Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long

Private Function GetOSLCID() As Integer
Dim sysLCID As Long

sysLCID = GetSystemDefaultLCID
  '&H409(us-英文)&H809(gb-英文)  &HC09(au-英文) &H1009(ca-英文)
  '&H004(zh-中文)&H404(tw-Big5)&H804(cn-GBK/GB)&HC04(hk-Big5) &H1004(sg-GBK)
  '&H804=2052 &H404=1028 &H409=1033 &H809=2057
If sysLCID = &H804 Or sysLCID = &H4 Or sysLCID = &H1004 Then
   GetOSLCID = 1 '中文简体
ElseIf sysLCID = &H404 Or sysLCID = &HC04 Then
   GetOSLCID = 2 '中文繁体
ElseIf sysLCID Mod 16 = 9 Then
   GetOSLCID = 0 '(英文)
Else: GetOSLCID = 0
End If

End Function 

热点排行