Fecha con condiciones

[rufo]

Gracias amigo pero ya lo puse como me indicaste y no pasa nada mira te anexo el codigo que hasta ahorita tengo

procedure TBORRAR.Timer1Timer(Sender: TObject);
begin
 label1.Caption:=FormatDateTime('dd/mm/yyyy ',Date);
 Label2.Caption := FormatDateTime('h:mm ampm',Now);
 fecha:=StrToDate('06/04/2010');
if (Date = fecha) and (Time = EncodeTime(12,39,00,00)) then
Begin
 application.Terminate;
End;
end;

end.

Espero que me eches una mano y gracias por responder.

[[Caral]]

Hola

Saludos

[rufo]

Hola Caral

[[Caral]]

Hola
Me pregunto:
Viste el codigo que puse?.
Te sirvio?
Es lo que buscabas?
Te lo saltaste?.
Saludos

[rufo]

Gracias amigo Caral no me mostraba tus mensajes que pusiste tuve que refrescar la ventana y ya quedo muchas gracias a todos. Saludos

[[AzidRain]]

Y que pasas si cierras el pograma....adios fecha y todo...
como te orientaron funciona Si y solo Si, el programa no se cierra. Mencionas que quieres una fecha no una hora determinada por lo que infiero que el programa:

1.- Estará siempre abierto
2.- Aunque se cierre debe poder "recordar" la fecha (y hora) que le habías indicado.

Ambos casos requieren soluciones distintas..indícanos cual necesitas.

[rufo]

Ok amigo mira te voy a dejar el codigo hasta donde quedo ya solucionado mis dudas cabe mencionar que todavia falta hacerle algunos detalles y posteriormente lo subire al club, te dejo el codigo.

procedure TBORRAR.Timer1Timer(Sender: TObject);
var
fecha: string;
//FileOpInfo: TShFileOpStruct;
begin
  ShortDateFormat := 'dd/mm/yyyy';
  label1.Caption:= DateToStr(Date);
  fecha:= '06/04/2010';
  if Date = StrToDate(fecha) then
  Begin
    if messagedlg('El software de prueba ya caduco,¿desea comprar la version total? ',mtconfirmation,[mbok],0)=mrok then
     application.Terminate;

Echale un ojo y me dices si te sirve.Saludos