-
Notifications
You must be signed in to change notification settings - Fork 1
Expand file tree
/
Copy pathNationalLanguage.prg
More file actions
29 lines (26 loc) · 1.14 KB
/
NationalLanguage.prg
File metadata and controls
29 lines (26 loc) · 1.14 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
* Program Name : NationalLanguage.Prg
* Article No. : [Win API] - 018
* Illustrate : ??????????
* Date / Time : 2001.09.10
* Writer :
* 1st Post :
* My Comment : ???? LangID = 2052 ???(??),???????
* : ????????????‘??????’???,???
* : ???????????????? Windows,??????
* : ??????????
DECLARE SHORT GetSystemDefaultLangID IN kernel32
DECLARE SHORT GetUserDefaultLangID IN kernel32
DECLARE SHORT GetSystemDefaultLCID IN kernel32
DECLARE SHORT GetUserDefaultLCID IN kernel32
DECLARE SHORT GetThreadLocale IN kernel32
DECLARE INTEGER GetOEMCP IN kernel32
DECLARE INTEGER GetACP IN kernel32
DECLARE INTEGER GetKBCodePage IN user32
? "ϵͳȱʡ LangID : ", GetSystemDefaultLangID()
? "Óû§È±Ê¡ LangID : ", GetUserDefaultLangID()
? "ϵͳȱʡ¾Ö²¿×Ö·û¼¯±êʶ·û LCID : ", GetSystemDefaultLCID()
? "Óû§È±Ê¡¾Ö²¿×Ö·û¼¯±êʶ·û LCID : ", GetUserDefaultLCID()
? "Current Thread Locale : ", GetThreadLocale()
? "OEM ´úÂëÒ³±êʶ·û : ", GetOEMCP()
? "ANSI ´úÂëÒ³±êʶ·û : ", GetACP()
? "Current code page (should be the same as GetOEMCP): ", GetKBCodePage()