怎樣知道當前操作系統是簡體的還是繁體的/

wsh1126 2005-03-21 08:40:14
我想在系統啟動的時候取得環境變量,系統時間體系統還是繁體系統不知怎麼的知,請知道的那位高人幫忙.
...全文
78 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
wsh1126 2005-03-22
  • 打赏
  • 举报
回复
問題解決,謝謝兩位!
daisy8675 2005-03-22
  • 打赏
  • 举报
回复
Option Explicit
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long

Private Sub Command1_Click()
Dim LocaleID As Long
LocaleID = GetSystemDefaultLCID

Select Case LocaleID
Case 1028 '&H404 繁体中文
MsgBox "繁体中文"
Case 2052 '&H804 简体中文
MsgBox "简体中文"
Case 1033 ' &H409 英文
MsgBox "英文"
End Select
End Sub
daisy8675 2005-03-22
  • 打赏
  • 举报
回复
奇怪,我好象昨天答了你一次吧
wsh1126 2005-03-22
  • 打赏
  • 举报
回复
我實在找不到,找見一個但是不能用.請各為發表高見.

1.获得系统语言类型
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Function Language() As String
Dim LocaleID As Long
LocaleID = GetSystemDefaultLCID
Select Case LocaleID
Case &H404: Language = "中文繁体."
Case &H804: Language = "中文简体."
Case 1033: Language = "英文"
Case Else: Language = "其它"
End Select
End Function
cindytsai 2005-03-21
  • 打赏
  • 举报
回复
http://search.csdn.net/Expert/topic/1859/1859732.xml?temp=.4547388
  • 打赏
  • 举报
回复
你可以试试在wmi里找一下,应该有的

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧