[[Nbull]]

Hola a tod@s de nuevo, despues de estar un tiempo desconectado vuelvo al club con mis dudillas,siento ser tan pesado.

Bueno,lo que me pasa ahora es que he colocado dos timer, vi en otro Hilo que explicabais como hacer que se ejecute mi aplicación a una hora, con ese ejemplo me funciona mi aplicación de lujo pero, a mi se me plantea el problema de que quiero que el ususario pueda cerrar la aplicación a los dos minutos por ejemplo.
Para eso me he colocado otro timer y le he llamado TimerEstablecido, pero no llega ha hacerlo.
Para llamar a ese timer lo que he echo es activarlo desde el timer que me inicia la aplicación a la hora que le diga, os paso el codigo y haber si veis vosotros algo mal:

Código Delphi [-]
 
procedure TForm1.TimerConexion1Timer(Sender: TObject);
var
Str: String;
ahora, mediaNoche : Tdatetime;
faltanMilisegundos : int64;
tiempoes,min : Word;
begin
 
{Miro si ha habido cambios en el Archivo ini}
ArchivoIni:= Tinifile.Create(Sinidir+'\config.Ini');
Hora :=StrToint(ArchivoIni.ReadString('Hora','H','00'));
Minutos := StrToint(ArchivoIni.ReadString('Minutos','Min','00'));
NTelefono := ArchivoIni.ReadString('NumTelefono','TLF','');
Testablecido := ArchivoIni.ReadString('TiempoConexion','Conexion','120');
ArchivoIni.Free;
 
{Calculo el tiempo que falta para cerrar}
ahora := now;
medianoche := ahora;
tiempoes := Strtoint(Testablecido);//Me lo pasan al Ini en segundos 
//desde la configuración
tiempoes := Tiempoes div 60;//Lo paso a minutos
min :=tiempoes + minutos;//Se lo sumo a los minutos de la 
//Hora que inicia mi aplicación
medianoche := RecodeTime(medianoche,Hora,min,00,999); // a la fecha actual, 
//le cambio la hora
faltanMilisegundos:= MillisecondsBetween(mediaNoche, ahora);
TimerEstablecido.Interval := faltanMilisegundos;
TimerEstablecido.enabled:= true;//Lo activo

Me pasan dos cosas o no me entra al codigo y no la cierra la aplicación o entra a la misma hora que se ejecuta mi aplicación, no se que puede ser

Un Saludo a todos y Gracias por vuestro tiempo.