...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;

printed from
www.swissdelphicenter.ch
developers knowledge base