VFP 愛用者社區

[foxy]

請教如何用VFP判斷用戶的Windows Xp的non-unicode language是正體還是簡體中文
謝謝
Mike
www.foxdatasystem.com

此問題已經解決, 如下
DECLARE SHORT GetSystemDefaultLCID IN kernel32
?GetSystemDefaultLCID()
&& 4,1028,2048 for Chinese TAIWAN
&& 2052 PRC
&& 3076 HK
&& 4100 Singapore
&& 5124 Macau

[garfield]

*********************
DECLARE INTEGER GetLocaleInfo IN kernel32;
INTEGER Locale,;
INTEGER LCType,;
STRING @ lpLCData,;
INTEGER cchData
lcBuffer = SPACE(250)
lnLength = GetLocaleInfo (0, 1, @lcBuffer, Len(lcBuffer))

do case
case trim(lcBuffer)="0404"
&& 中文繁體
OTHERWISE
&& 其他設成英文
.
end case