Delphi 列出所有的語言

在 Form 上放一個 TMemo
在 FormCreate 事件中加入

procedure TForm1.FormCreate(Sender: TObject);
var
  lang: TLanguages;
  i: Integer;
begin
  lang := Languages;
  with Memo1.Lines do
  begin
    Clear;
    Add('Name'#9'Ext'#9'ID'#9'LocaleID');
    for i := 0 to lang.Count -1 do
    begin
      Add(Format('%s'#9'%s'#9'%s'#9'%d', [
        lang.Name[i],
        lang.Ext[i],
        lang.ID[i],
        lang.LocaleID[i]
      ]));
    end;
  end;
end;