Estoy tratando de hacer mi primer programa sin form (nunca lo había hecho) y me tope con una de tantas dificultades, a ver si me dais un empujón.
Lo que quiero hacer es sencillo:
Tengo un programa (sin Form) que cierra una aplicación de windows.
Hasta ahí todo bien, el asunto es que quiero que use un timer para controlar el tiempo de cerrar dicho programa.
Normalmente con un form simplemente lo coloco y ya.
Si creara el componente tendría que ponerle un padre (creo) pero como no tengo form pues no puedo.
El código que tengo es sencillo:
program Project1; uses windows, Messages; var Mango:integer; begin Mango:=FindWindow(nil,'Calculator'); if mango=0 then else PostMessage(FindWindow(Nil, Pchar('Calculator')), WM_QUIT, 0, 0); end.
Si tuviese un form, colocaría un timer y lo haria asi:
procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Enabled:= True; end; procedure TForm1.Timer1Timer(Sender: TObject); var Mango:integer; begin Mango:=FindWindow(nil,'Calculator'); if mango=0 then else PostMessage(FindWindow(Nil, Pchar('Calculator')), WM_QUIT, 0, 0); end;
Ahora la pregunta:
Como creo en el programa sin form el timer y le indico que si cumple con un determinado tiempo se ejecute la acción de cerrar la aplicación?.
Espero que me entiendan y ayuden amigos.
Gracias.
Saludos