;Autor: Hroudtwolf

EnableExplicit

Procedure.s GetCurrentCodePage()
  Protected CPName.s
  Protected ret.l
  CPName.s="?"
  ret.l=GetOEMCP_()
  Select ret.l
    Case 437 : CPName.s="MS-DOS United States"
    Case 708 : CPName.s="Arabic (ASMO 708)"
    Case 709 : CPName.s="Arabic (ASMO 449+, BCON V4)"
    Case 710 : CPName.s="Arabic (Transparent Arabic)"
    Case 720 : CPName.s="Arabic (Transparent ASMO)"
    Case 737 : CPName.s="Greek (formerly 437G)"
    Case 775 : CPName.s="Baltic"
    Case 850 : CPName.s="MS-DOS Multilingual (Latin I)"
    Case 852 : CPName.s="MS-DOS Slavic (Latin II)"
    Case 855 : CPName.s="IBM Cyrillic (primarily Russian)"
    Case 857 : CPName.s="IBM Turkish"
    Case 860 : CPName.s="MS-DOS Portuguese"
    Case 861 : CPName.s="MS-DOS Icelandic"
    Case 862 : CPName.s="Hebrew"
    Case 863 : CPName.s="MS-DOS Canadian-French"
    Case 864 : CPName.s="Arabic"
    Case 865 : CPName.s="MS-DOS Nordic"
    Case 866 : CPName.s="MS-DOS Russian (former USSR)"
    Case 869 : CPName.s="IBM Modern Greek"
    Case 874 : CPName.s="Thai"
    Case 932 : CPName.s="Japan"
    Case 936 : CPName.s="Chinese (PRC, Singapore)"
    Case 949 : CPName.s="Korean"
    Case 950 : CPName.s="Chinese (Taiwan, Hong Kong)"
    Case 1361 : CPName.s="Korean (Johab)"
  EndSelect
  ProcedureReturn CPName.s
EndProcedure

MessageRequester("","OEM-Codepage: "+GetCurrentCodePage(),0)