Declare Function GetOEMCP Lib "kernel32" () As Long
GetOEMCP возвращает кодовую страницу DOS(OEM), установленную на компьютере.
Функция возвращает OEM идентификатор кодовой страницы для системы или идентификатор, заданный по умолчанию, если не определена текущая кодовая страница
| Идентификатор | Значение |
|---|---|
| 437 | MS-DOS United States |
| 708 | Arabic (ASMO 708) |
| 709 | Arabic (ASMO 449+, BCON V4) |
| 710 | Arabic (Transparent Arabic) |
| 720 | Arabic (Transparent ASMO) |
| 737 | Greek (formerly 437G) |
| 775 | Baltic |
| 850 | MS-DOS Multilingual (Latin I) |
| 852 | MS-DOS Slavic (Latin II) |
| 855 | IBM Cyrillic (primarily Russian) |
| 857 | IBM Turkish |
| 860 | MS-DOS Portuguese |
| 861 | MS-DOS Icelandic |
| 862 | Hebrew |
| 863 | MS-DOS Canadian-French |
| 864 | Arabic |
| 865 | MS-DOS Nordic |
| 866 | MS-DOS Russian (former USSR) |
| 869 | IBM Modern Greek |
| 874 | Thai |
| 932 | Japan |
| 936 | Chinese (PRC, Singapore) |
| 949 | Korean |
| 950 | Chinese (Taiwan; Hong Kong SAR, PRC) |
| 1361 | Korean (Johab) |
' Определяем кодовую страницу OEM
MsgBox "OEMCP = " & GetOEMCP