delphi - 如何在 DelphiXE7 中列出所有 Windows 代码页标识符？

Question

我需要在组合框中列出所有 Windows 代码页以供选择。
这将用于设置应用程序代码页。
我们如何列出所有 Windows 代码页标识符 在 DelphiXE7 中？

Answer 1

var
  CPList: TStrings;

function CodePagesProc(CodePageString: PChar): BOOL; stdcall;
begin
  CPList.Add(CodePageString);
  Result := TRUE;
end;

procedure TFrmX.FormCreate(Sender: TObject);
begin
  ...
  CPList := ComboBox1.Items;
  CPList.BeginUpdate;
  try
    EnumSystemCodePages(@CodePagesProc, CP_SUPPORTED); 
    // EnumSystemCodePages will call CodePagesProc() repeatedly for each code page.
  finally
    CPList.EndUpdate;
  end;
end;

引用:

EnumSystemCodePages function

http://www.devsuperpage.com/search/Articles.asp?ArtID=604277

http://www.delphipraxis.net/727316-post10.html