Mega Code Archive

 

Categories / Delphi / System

 

Check if the user uses 24 hour format

function Is24HourTimeFormat: Boolean; var DefaultLCID: LCID; begin DefaultLCID := GetThreadLocale; Result := 0 <> StrToIntDef(GetLocaleStr(DefaultLCID, LOCALE_ITIME,'0'), 0); end;