VFP 愛用者社區

[Batman]

同上

[ckp6250]

查 CodePage 的屬性值就行了
vfp 的 help 中有範例

[oldbb]

oService = Getobject("winmgmts:")
oClasses = oService.InstancesOf("Win32_OperatingSystem")
FOR EACH oClass IN oClasses
? "OperatingSystem..." + NVL(oClass.Caption, "<NULL>")
? "MUILanguages......" + NVL(oClass.MUILanguages[0], "<NULL>")
ENDFOR

[Batman]

謝謝oldbb,ckp6250兩位回覆及幫助, 立即測試, 謝謝

[Batman]

回oldbb, 第一句沒問題, 出現如下
OperatingSystem...Microsoft Windows XP Professional
第二句出現錯誤, 出現如下
OLE error code 0x8002006: Unknown name
不知什麼原因, 請再幫忙一下

[tuberose]

Clear
oService = Getobject("winmgmts:")
oClasses = oService.InstancesOf("Win32_OperatingSystem")
For Each oClass In oClasses
? "OperatingSystem : " + Nvl(oClass.Caption, "<NULL>")
OSLanguage = oClass.OSLanguage
Endfor

Do Case
Case OSLanguage = 1031
strDisplay = "German"
Case OSLanguage = 1032
strDisplay = "Greek"
Case OSLanguage = 1034
strDisplay = "Spanish"
Case OSLanguage = 1036
strDisplay = "French"
Case OSLanguage = 1040
strDisplay = "Italian"
Case OSLanguage = 1041
strDisplay = "Japanese"
Case OSLanguage = 1042
strDisplay = "Korean"
Case OSLanguage = 1043
strDisplay = "Dutch"
Case OSLanguage = 1044
strDisplay = "Norwegian Bokmal"
Case OSLanguage = 1045
strDisplay = "Polish"
Case OSLanguage = 1048
strDisplay = "Romanian"
Case OSLanguage = 1049
strDisplay = "Russian"
Case OSLanguage = 1051
strDisplay = "Slovak"
Case OSLanguage = 1053
strDisplay = "Swedish"
Case OSLanguage = 1060
strDisplay = "Slovenian"
Case OSLanguage = 1028
strDisplay = "Chinese (Traditional) - TaiWan"
Case OSLanguage = 2052
strDisplay = "Chinese (Simplified) - PRC"
Case OSLanguage = 4100
strDisplay = "Chinese (Simplified) - Singapore"
Case OSLanguage = 2070
strDisplay = "Portuguese"
Case OSLanguage = 3076
strDisplay = "Chinese Hong Kong"
Otherwise
strDisplay = "English US" && 1033
Endcase

? "Detected Language : " + Alltrim(Str(OSLanguage)) + " (" + strDisplay + ")"

[Batman]

謝謝tuberose幫助, 可以了

[tuberose]

*!* Retrieving national language settings
Clear
DO declare

? "System Default LangID :", GetSystemDefaultLangID()
? "User Default LangID :", GetUserDefaultLangID()

? "System Default LCID :", GetSystemDefaultLCID()
? "User Default LCID :", GetUserDefaultLCID()

? "Current Thread Locale :", GetThreadLocale()

? "OEM code-page identifier :", GetOEMCP()
? "ANSI code-page identifier :", GetACP()
? "Current code page (should be the same as GetOEMCP):", GetKBCodePage()

PROCEDURE declare
DECLARE SHORT GetThreadLocale IN kernel32
DECLARE SHORT GetSystemDefaultLangID IN kernel32
DECLARE SHORT GetUserDefaultLangID IN kernel32
DECLARE SHORT GetSystemDefaultLCID IN kernel32
DECLARE SHORT GetUserDefaultLCID IN kernel32
DECLARE INTEGER GetOEMCP IN kernel32
DECLARE INTEGER GetACP IN kernel32
DECLARE INTEGER GetKBCodePage IN user32

[Batman]

再次謝謝tuberose的額外資料