Descobrir hora que o computador foi ligado

Ol� galera, vamos a esta Quick Tip que tem como objetivo mostrar o tempo que o computador foi inicia, mostrando n�mero de dias, horas, minutos e segundos.
Para isso vamos precisar declarar uma function na seç�o private da classe do nosso formul�rio.

Listagem 1: Declaraç�o da function


type
  TForm1 = class(TForm)
  private
    { Private declarations }
    function LigadoEm: string;
  public
    { Public declarations }
  end;

Neste momento vamos implementar a mesma usando o CTRL + SHIF + C, em cima da declaraç�o da function LigadoEm.

Listagem 2: Implementaç�o da function LigadoEm


function TForm1.LigadoEm: string;
const 
  Ticks_Dia: Integer    = 1000 * 60 * 60 * 24;
  Ticks_Hora: Integer   = 1000 * 60 * 60;
  Ticks_Numero: Integer = 1000 * 60;
  Ticks_Segundo: Integer = 1000;
var
  t:          Longword;
  d, h, m, s: Integer;
begin
  t := GetTickCount;
  d := t div Ticks_Dia;
  Dec(t, d * Ticks_Dia);
  h := t div Ticks_Hora;
  Dec(t, h * Ticks_Hora);
  m := t div Ticks_Numero;
  Dec(t, m * Ticks_Numero);
  s := t div Ticks_Segundo;
  Result := 'Ligado em : ' + IntToStr(d) + ' Dias ' + IntToStr(h) + ' Horas ' + IntToStr(m) +
    ' Minutos ' + IntToStr(s) + ' Segundos';
end;

Agora para testar a mesma vou usar o evento onCreate do formul�rio para ver como funciona.

Listagem 3: Usando a function LigadoEm


procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := LigadoEm;
end;

Fico por aqui e at� a pr�xima.

Um abraço
Wesley Y

Descobrir hora que o computador foi ligado

Veja nesta Quick Tip o tempo que o computador foi inicia, mostrando número de dias, horas, minutos e segundos.

Artigos relacionados