Проверить, используется ли формат времени в 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