OSにインストールされているコードページ一覧を列挙する ～Delphiソースコード集

OSにインストールされているコードページ一覧を列挙する ～Delphiソースコード集

システム(OS)にインストールされているコードページ一覧を列挙する

画面設計とソースコード

［新規作成］⇒［Windows VCLアプリケーション -Delphi］をクリックしてプロジェクトを作成します。
TButtonとTMemoをフォームにドラッグ＆ドロップします。

以下のソースコードを入力します。

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function CodePageEnumProc(CodePage:PChar):Integer;stdcall;
var Cp:Cardinal;
    CpInfo:TCPInfoEx;
begin
  Cp:=StrToInt(CodePage);
  GetCPInfoEx(cp,CP_ACP,CpInfo);
  Form1.Memo1.Lines.Add(
    Format('%s',[cPiNFO.CodePageName])
  );
  Result:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  //現在システムにインストールされているコードページを列挙する
  EnumSystemCodePages(@CodePageEnumProc,CP_INSTALLED);
end;

end.

実行画面例