function TranslateCharsetInfo(lpSrc: integer;
var lpCs: TCharsetInfo; dwFlags: DWORD): BOOL; stdcall;
external ‘gdi32.dll’ name ‘TranslateCharsetInfo’;
function GetDefaultCharset: TFontCharset;
var
dwCodePage: dWord;
CharSetInfo: TCharSetInfo;
begin
{get default codepage}
dwCodePage := StrToIntDef(GetLocaleStr(GetUserDefaultLCID, LOCALE_IDEFAULTANSICODEPAGE, ”), 0);
if dwCodePage = 0 then
dwCodePage := StrToIntDef(GetLocaleStr(GetSystemDefaultLCID, LOCALE_IDEFAULTANSICODEPAGE, ”), GetACP());
{convert codepage into charset}
if TranslateCharsetInfo(dwCodePage, CharSetInfo, TCI_SRCCODEPAGE) then
Result := CharSetInfo.ciCharset
else
Result := 0
end;