veja como fiz, só não sei como executar;

uses
  SysUtils, ExtCtrls;

var

        Timer1 : TTimer;

begin

        Timer1 := TTimer.Create(Nil);
        Timer1.Enabled := True;
        Timer1.Interval := 5600;
        if Timer1.OnActived then  (não sei aqui como é o codigo)
            begin
            end;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Stainle


--- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha 
<[EMAIL PROTECTED]> escreveu
>
> 
> O componente TTimer faz parte da unit extctrls. Crie um TTimer e 
dentro de sua aplicação console, defina uma classe contendo um método 
que possa ser atribuído ao evento OnTimer. Antes de habilitar o 
timer, defina o valor da propriedade Interval desse TTimer para o 
tempo (em milissegundos) que vc quer que a verificação de OnTimer 
seja feita.
> 
> Boa sorte.
> Sds.
> 
> 
> ________________________________
> 
> To: delphi-br@yahoogrupos.com.br
> From: [EMAIL PROTECTED]
> Date: Mon, 25 Feb 2008 14:19:37 +0000
> Subject: [delphi-br] Console
> 
> 
> 
> 
> 
> 
> 
> como faço para executar um Timer em uma aplicação CONSOLE, ou seja 
crio-
> o, habilito(enabled) e determino o tempo, como faço para ver se deu 
o
> tempo para executar uma rotina ??
> 
> grato
> 
> Stainle
> 
> 
> 
> 
> 
> 
> 
> 
> 
> _________________________________________________________________
> Receba GRÁTIS as mensagens do Messenger no seu celular quando você 
estiver offline. Conheça  o MSN Mobile!
> http://mobile.live.com/signup/signup2.aspx?lc=pt-br
>


Responder a