Siga-nos em...
Follow us on Twitter Follow us on Facebook Watch us on YouTube
Registro

Alpha Servers
Resultados 1 a 1 de 1

Hybrid View

  1. #1

    Avatar de FusioN
    Data de Ingresso
    Jul 2010
    Localização
    Rio de Janeiro - Brasil
    Idade
    29
    Posts
    434
    Agradecido
    18
    Agradeceu
    14
    Peso da Avaliação
    23

    Padrão [Medio]Quanto tempo o computador está ligado

    ~ Componentes ~
    - Timer
    - Label

    ~ Código ~

    Declare a Procedure:

    Código:
    function SToHMS(I: Integer): String;
    var
    H, M: Integer;
    Hs, Ms, Ss: String;
    begin
    H := I div 3600;  //horas completas
    I := I mod 3600;  //segundos que sobraram das horas completas
    M := I div 60;    //minutos completos
    I := I mod 60;    //segundos que sobraram dos minutos completos
    if (H < 10) then Hs := '0' + IntToStr(H)
    else  Hs := IntToStr(H);
    if (M < 10) then Ms := '0' + IntToStr(M)
    else  Ms := IntToStr(M);
    if (I < 10) then Ss := '0' + IntToStr(I)
    else  Ss := IntToStr(I);
    Result := Hs + ':' + Ms + ':' + Ss;
    end;
    No Timer Adcione:

    Código:
    procedure TForm1.Timer1Timer(Sender: TObject);
    var
      time: string;
    begin
      time := SToHMS(GetTickCount div 1000);
      label1.caption := time;
    end;
    Creditos: Bruno Lucatto
    Fonte: Planeta Delphi
    Última edição por FusioN; 17-08-2010 às 09:41 PM.

 

 

Informações de Tópico

Usuários Navegando neste Tópico

Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)

Tópicos Similares

  1. |Dúvida| Quanto tempo vocês levaram para aprender ?
    Por juniorpk22 no fórum C# - Nova área
    Respostas: 16
    Último Post: 11-06-2016, 08:31 AM
  2. |Dúvida| Quanto a gameserver.
    Por gokuka no fórum Dúvidas
    Respostas: 10
    Último Post: 23-04-2013, 12:59 PM
  3. |Flood livre| Quanto tempo para quebrar sua senha? Faça o teste!
    Por kaka no fórum Flood Livre
    Respostas: 7
    Último Post: 13-04-2013, 10:41 PM
  4. |Suporte| Site TDRS Mostrando que o servidor esta OFF mas ele esta ON
    Por Adm-Ero no fórum Pedidos
    Respostas: 2
    Último Post: 25-02-2011, 07:53 PM

Marcadores

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •