Проверить, используется ли формат времени в 24 часа |
Previous Top Next |
Code: |
function Is24HourTimeFormat: Boolean; var DefaultLCID: LCID; begin DefaultLCID := GetThreadLocale; Result := 0 <> StrToIntDef(GetLocaleStr(DefaultLCID, LOCALE_ITIME,'0'), 0); end; |
©Drkb::01650
Взято с сайта: http://www.swissdelphicenter.ch