Code Page-Name zu Identifier

[himitsu]

Zitat:

CPInfoEx ist in Delphi nicht definiert

hatte ich gemerkt und ein erster schneller Versuch mit EnumSystemCodePages liefert einfach immer nur eine einzige "10000"

Delphi-Quellcode:

Function EnumCodePagesProc(CodePageString: PChar): LongBool; StdCall;
  Begin
    Form1.Memo1.Lines.Add(CodePageString);
    Result := True;
  End;

Procedure TForm1.FormCreate(Sender: TObject);
  Begin
    EnumSystemCodePages(@EnumCodePagesProc, CP_SUPPORTED);
  End;

[Edit] hmm ... LongBool-True ($ffffffff) wird wohl nicht so bekocht wie LongWord(1)

Bollean-True(1) ist ja leider zu kurz

und dabei steht doch was von Boolean im PSDK



nur leider sind die CodePage-Namen etwas blöd ... nett lokalisiert, was ein prüfen auf bestimmte Namen ungünstig macht

Zitat:

21866 = "21866 (Ukrainisch - KOI8-U)"
28591 = "28591 (ISO 8859-1 Lateinisch I)"
28592 = "28592 (ISO 8859-2 Mitteleuropa)"

und "ISO 8859-1" <> "ISO-8859-1"