System Information

[ Delphi ] – Get the time zone

function GetTimeZone: string;
var
  TimeZone: TTimeZoneInformation;
begin
  GetTimeZoneInformation(TimeZone);
  Result := 'GMT ' + IntToStr(TimeZone.Bias div -60);
end; More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Check if the user uses 24 hour format

function Is24HourTimeFormat: Boolean;
var
  DefaultLCID: LCID;
begin
  DefaultLCID := GetThreadLocale;
  Result := 0 <>  More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Get Windows uptime

function UpTime: string;
const
  ticksperday: Integer    = 1000 * 60 * 60 * 24;
  ticksperhour: Integer   = 1000 * 60 * 60;
  ticksperminute: Integer = 1000 * 60;
  tickspersecond: Integer = 1000;
var
  t:          Longword;
  d, h, m, s: Integer;
begin
 More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...