代码页是字符集编码的别名，也称“内码表”，是特定语言的字符集的一张表。
代码页分为两种：一种是ANSI代码页；另一种是OEM代码页。

⑴OEM代码页主要是用于Windows系统中的命令行界面（Console）程序，虚拟Dos。

⑵ANSI代码页主要是用于Windows系统中本地编码不是Unicode的图形用户界面（Gui）程序。

procedure TForm9.BitBtn3Click(Sender: TObject);

var

cpInfoEx:TcpInfoEx;

begin

//GetACP:获取当前系统的ANSI代码页;

//具体可以对照一下:开始è程序è运行，CMDè输入CHCP;

Windows.GetCPInfoEx(Windows.GetACP,0,cpInfoEx);

Memo2.Lines.Add(SysUtils.Format(‘ANSI Code Page:%s‘,[cpInfoEx.CodePageName]));

//GetOEMCP:获取当前系统的OEM代码页;

Windows.GetCPInfoEx(Windows.GetOEMCP,0,cpInfoEx);

Memo2.Lines.Add(SysUtils.Format(‘OEM Code Page:%s‘,[cpInfoEx.CodePageName]));

//结论:对于中文操作系统来讲,ANSI代码页跟OEM代码页都是936(ANSI/OEM - 简体中文 GBK);

end;

Windows API 函数 GetACP 可以获得当前系统的代码页编码，如简体中文是 936。

如果要获得 Dos 下的代码页，则需要调用 GetOEMCP 函数。

如果要判断代码页的有效性，调用 IsValidCodePage 函数。

以上函数在 Delphi 中需要引用 Windows 单元。

//附图: