如何判断操作系统是简体,繁体还是英文呢?

cai1234

如题~如何判断操作系统是简体,繁体还是英文呢?

cai1234

MsgBox(0, "您的系统语言代码:", _Language())

Func _Language()
Select
    Case StringInStr("0413 0813", @OSLang)
        Return "Dutch"

    Case StringInStr("0409 0809 0c09 1009 1409 1809 1c09 2009 2409 2809 2c09 3009 3409", @OSLang)
        Return "English"

    Case StringInStr("040c 080c 0c0c 100c 140c 180c", @OSLang)
        Return "French"

    Case StringInStr("0407 0807 0c07 1007 1407", @OSLang)
        Return "German"

    Case StringInStr("0410 0810", @OSLang)
        Return "Italian"

    Case StringInStr("0414 0814", @OSLang)
        Return "Norwegian"

    Case StringInStr("0415", @OSLang)
        Return "Polish"

    Case StringInStr("0416 0816", @OSLang)
        Return "Portuguese"

    Case StringInStr("040a 080a 0c0a 100a 140a 180a 1c0a 200a 240a 280a 2c0a 300a 340a 380a 3c0a 400a 440a 480a 4c0a 500a", @OSLang)
        Return "Spanish"

    Case StringInStr("041d 081d", @OSLang)
        Return "Swedish"

    Case Else
        Return "Other (can't determine with @OSLang directly)"

    EndSelect
EndFunc

cai1234

找到了,通过系统信息宏