O que faz Frac(Now) ?
-----Mensagem original-----
De: Osmar de Souza Júnior [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 18 de janeiro de 2005 10:48
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Execução do sistema por tempo
Você pode colocar um timer somente. Coloque ele para estourar a cada 1
minuto, por exemplo. A cada 1 minuto ele verifica se passou das 18:00
horas. Ao iniciar o programa, você verifica se passou das 8:00, senão
não inicia o programa.
// Para encerrar a aplicação, pegue o evento OnTimer do Timer
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Frac(Now) > StrToTime('18:00')) then
application.terminate;
end;
--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® <[EMAIL PROTECTED]>
escreveu
> Isso eu até sei, mas como eu fço a comparação da hora atual com a
hora que
> esta definida para o usuário usar, tipo
>
> eu quero que o usuáriuo use o sistema somente entre as 8:00 e 18:00
horas.
>
> -----Mensagem original-----
> De: ricardo junior [mailto:[EMAIL PROTECTED]
> Enviada em: terça-feira, 18 de janeiro de 2005 08:37
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] Execução do sistema por tempo
>
>
>
> Fala Eduardo
> Blz
> Ae coloca um Ttimer
>
>
>
> Eduardo Silva ® <[EMAIL PROTECTED]> wrote:
> Galera, gostaria que meu sistema só funcionasse em um intervalo de
tempo
> pré
> determinado configurado somente por mim (usuário administrador)
>
> Como eu faço isso ?
>
> É mais ou menos assim, eu colocaria dois timer no meu sistema, um
para a
> hora inicial e outro para a hora final. gravaria as horas em uma
tabela e
> o
> sistema só poderia funcionar dentro desse horário.....
> _ __________________________________ _
> / )| |( \
> / / | Eduardo de Almeida Silva | \ \
> _( (_ | _ * [EMAIL PROTECTED] _ | _) )_
> (((\ \)|_/ )__________________________( \_|(/ /)))
>
> (\\\\ \_/ / \ \_/ ////)
>
> \ / \ /
>
> \ _/ \_ /
>
> / / \ \
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
>
>
> ---------------------------------
> Links do Yahoo! Grupos
>
> Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço
> do Yahoo!.
>
>
>
> ---------------------------------
> Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do
> Yahoo! agora.
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
>
>
>
>
>
>
>
--------------------------------------------------------------------------
--
> --
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do Yahoo!.
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
