系统语言判断

Demo 发表于 2014-8-20 14:20

本帖最后由 Demo 于 2014-8-20 14:27 编辑

Private Declare Function GetSystemDefaultLangID Lib "kernel32" () As Integer
Function GetSysLangID()

Select Case GetSystemDefaultLangID

   Case &H804
         GetSysLangID = "中国"

   Case &H404
         GetSysLangID = "中国台湾"

   Case &HC04
         GetSysLangID = "中国香港"

   Case &H409
         GetSysLangID = "美国"

   Case &H407
         GetSysLangID = "德国"

   Case &H408
         GetSysLangID = "英国"

   Case &H411
         GetSysLangID = "日本"

   Case Else
         GetSysLangID = "其他语言版本"
End Select

End Function

kyjzbiao 发表于 2014-8-20 14:24

这个是VC？

88424450 发表于 2014-8-20 15:06

kyjzbiao 发表于 2014-8-20 14:24
这个是VC？

不是写了VB么

opelwang 发表于 2015-4-21 08:47

这个可以的，学习了。

页: [1]

查看完整版本: 系统语言判断

免责声明：
吾爱破解所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Service@52pojie.cn

吾爱破解 - 52pojie.cn's Archiver

系统语言判断