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 = "其它语言系统" end select getostype = ret end function
