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"