Fecha con condiciones

[[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

[[Caral]]

Hola
Esto:

Código Delphi [-]
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;

No es eficiente, alguien con un poco de conocimiento y malicia se salta la fecha a placer y sigue usando el programa.
Es tan simple como modificar la fecha del ordenador.
Creo que para esto que buscas no va a funcionar ninguno de estos códigos.
Saludos