[笔记]使用API函数 GetACP 获取Windows系统当前代码页
代码页是字符集编码的别名，也称“内码表”，是特定语言的字符集的一张表。
代码页分为两种：一种是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 单元。
//附图:
