Download all you need here
System Information
[ Delphi ] – Get the time zone
Jun 4th
function GetTimeZone: string; var TimeZone: TTimeZoneInformation; begin GetTimeZoneInformation(TimeZone); Result := 'GMT ' + IntToStr(TimeZone.Bias div -60); end; More >
[ Delphi ] – Check if the user uses 24 hour format
Jun 4th
function Is24HourTimeFormat: Boolean; var DefaultLCID: LCID; begin DefaultLCID := GetThreadLocale; Result := 0 <> More >
[ Delphi ] – Get Windows uptime
May 4th
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 >

