Проверить, используется ли формат времени в 24 часа
Falk0ner, вс, 06/07/2008 - 15:34.
Проверить, используется ли формат времени в 24 часа
function Is24HourTimeFormat: Boolean;
var
DefaultLCID: LCID;
begin
DefaultLCID := GetThreadLocale;
Result := 0 <> StrToIntDef(GetLocaleStr(DefaultLCID,
LOCALE_ITIME,'0'), 0);
end;
var
DefaultLCID: LCID;
begin
DefaultLCID := GetThreadLocale;
Result := 0 <> StrToIntDef(GetLocaleStr(DefaultLCID,
LOCALE_ITIME,'0'), 0);
end;
Взято с сайта: http://www.swissdelphicenter.ch
Отправить комментарий