怎么判断操作系统是中文或英文.....

[y_shen]

win2000,win98,winme,winxp都要!

[射天狼]

Option Explicit

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

Private Sub Command1_Click()
Dim LocaleID As Long
LocaleID = GetSystemDefaultLCID
Select Case LocaleID
Case &H404
MsgBox "中文繁体"
Case &H804
MsgBox "中文简体"
Case &H409
MsgBox "english"
Case Else
MsgBox "其它返回值，可查找msdn"
End Select
End Sub

[lwm1977]

粘一个GetSystemDefaultLCID