Проверить, используется ли формат времени в 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