Aplikasi System Uptime dengan Delphi #132

andrypein.net : Aing bikin aplikasi system uptime dengan delphi ini untuk mengecek berapa lama durasi PC kita hidup saat pertama kali ia boot on.

Begitulah kira-kira bahasa kerennya mah, ya iseng lah nyoba2 in gitu dengan bahan komponen yang hanya dua, cuma timer sama label doank.

Untuk kodenya, tinggal kopas dibawah ini gan :

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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
  t := GetTickCount;
  d := t div ticksperday;
  Dec(t, d * ticksperday);
  h := t div ticksperhour;
  Dec(t, h * ticksperhour);
  m := t div ticksperminute;
  Dec(t, m * ticksperminute);
  s := t div tickspersecond;
  Result := 'Uptime: ' + IntToStr(d) + ' Days ' + IntToStr(h) + ' Hours ' + IntToStr(m) +
    ' Minutes ' + IntToStr(s) + ' Seconds';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption:=uptime;
end;

end.

Apps system uptime dengan delphi aing sediakan mini projeknya bisa di unduh gan here :

Download

*AFK