...ermitteln, ob das 24-Stunden Format eingestellt ist?

Autor: Michael Fullerton

Kategorie: System

function Is24HourTimeFormat: Boolean;
var
  
DefaultLCID: LCID;
begin
  
DefaultLCID := GetThreadLocale;
  Result := 0 <> StrToIntDef(GetLocaleStr(DefaultLCID,
    LOCALE_ITIME,'0'), 0);
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base