Artigos Delphi 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