private declare function getsystemdefaultlcid lib "kernel32" () as long
private sub command1_click() msgbox getostype, vbokonly, "提示" end sub
function getostype() as string dim ret as string select case hex(getsystemdefaultlcid) case 804: ret = "中文簡體(大陸)" case 404: ret = "中文繁體(臺灣)" case 409: ret = "英文" case else: ret = "其它語言系統(tǒng)" end select getostype = ret end function
