Проверить, используется ли формат времени в 24 часа
Материал из DRKB
Проверить, используется ли формат времени в 24 часа[править | править код]
function Is24HourTimeFormat: Boolean;
var
DefaultLCID: LCID;
begin
DefaultLCID := GetThreadLocale;
Result := (0 <> StrToIntDef(GetLocaleStr(DefaultLCID, LOCALE_ITIME, '0'), 0));
end;
Source: Взято с сайта: http://www.swissdelphicenter.ch
ID: 01650