|
...check if the user uses 24 hour format?
|
| Autor:
Michael Fullerton |
| [ Print tip
] | | |
function Is24HourTimeFormat: Boolean;
var
DefaultLCID: LCID;
begin
DefaultLCID := GetThreadLocale;
Result := 0 <> StrToIntDef(GetLocaleStr(DefaultLCID,
LOCALE_ITIME,'0'), 0);
end;
|
