Category: System Information
Title: Check if the user uses 24 hour format
Date added: 15.03.2006
Hits: 1336
function Is24HourTimeFormat: Boolean;
var
DefaultLCID: LCID;
begin
DefaultLCID := GetThreadLocale;
Result := 0 <> StrToIntDef(GetLocaleStr(DefaultLCID,
LOCALE_ITIME,'0'), 0);
end;