Forms Delphi

  1. Home
  2. Delphi
  3. Forms
  4. Check if the user uses 24 hour format
Title: 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;