Programa não finaliza

[dirleimoreira]

Boa tarde,

Sou nosso no delphi e gostaria de uma ajuda se possivel.... eu estou entando fazer um programa de verificação de data... ele esta funciona so que ele não para de funcionar, fica em loop infinito... estou colocando o codigo a seguir... agradeço quem poder ajudar

unit codigovencimento;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls;

type

TForm1 = class(TForm)

Timer1: TTimer;

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

var

diaexpira:string;

begin

diaexpira:= datetostr(now);

begin

if (diaexpira='24/1/2011') then

begin

messagebox(form1.handle,'Seu texto','Informação', mb_ok+mb_iconinformation);

Exit;

if (diaexpira='25/1/2011') then

begin

showmessage('texto');

Exit;

end;

end;

end;

end;

end.

Editado Janeiro 24, 2011 por dirleimoreira

[flavioavilela]

experimente colocar isso em um botão ou no evento OnCreate ou qualquer outro evento de qualquer outro objeto que não seja um Timer... o timer fica verificando no computador segundo a segundo.... e como hoje é 24, ele toda hora vai te retornar a mensagem... se colocar num botão ou um evento, por exemplo, ele vai verificar somente uma vez...

[dirleimoreira]

Vlw pela ajuda... eu tentei aqui e deu certo, so que eu presciso que ele execute sozinho... e tambem gostaria de saber se tem como deixar o form invisivel... ah estou usando o delphi7

é mais uma coisa não querendo abusar... teria como eu fazer esse programa roda como um serviço do windows???

[flavioavilela]

no componente timer mesmo você pode fazer... nele, você tem uma propriedade chamada Interval... ele é medido em milisegundo (1000 por default = 1 segundo)... você pode colocar o valor que quiser e a cada X Interval, ele executa o que você mandar....

quando a executar seu programa como serviço, leia esses dois posts abaixo, tem o que você precisa... um deles, aqui do próprio forum...

http://www.marcosdellantonio.net/2007/06/2...ico-do-windows/

http://scriptbrasil.com.br/forum/index.php?showtopic=73500

espero ter ajudado...