Bien, si un bucle no es suficiente vamos a hacer las cosas a lo grande. Primero necesitamos crear una función para manejar las señales que son enviadas a la aplicación. Una como esta:
Código Delphi
[-]
function HandlerRoutine(dwCtrlType: DWORD): BOOL; stdcall;
begin
Result:= TRUE;
case dwCtrlType of
CTRL_C_EVENT:
Terminar:= TRUE;
CTRL_CLOSE_EVENT:
Terminar:= TRUE;
CTRL_LOGOFF_EVENT:
Terminar:= TRUE;
CTRL_SHUTDOWN_EVENT:
Terminar:= TRUE;
else
Result:= FALSE;
end;
end;
Aquí yo pongo una variable global (Terminar) a false como respuesta a todos los eventos. Tu puedes manejar esos eventos como prefieras, solo tienes que tener en cuenta que si la función devuelve FALSE la señal se pasa al siguiente manejador.
Ahora que ya manejamos los eventos Ctrl+C, Close, Logoff y Shutdown, no estaría mal disponer de un bucle de mensajes en nuestra aplicación. Si vas a usar algún timer, o algún componente que maneje internamente mensajes, este bucle sera imprescindible. Lo primero vamos a crear una función similar al famoso "Application.ProcessMessages", algo así:
Código Delphi
[-]
procedure ProcessMessages;
var
Msg: TMsg;
begin
while PeekMessage(Msg,0,0,0,PM_REMOVE) do
begin
if Msg.Message = WM_QUIT then
begin
Terminar:= TRUE;
break;
end else
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
end;
Ahora solo nos falta encajar todo esto en nuestra aplicacion la cosa quedaria mas o menos asi:
Código Delphi
[-]
program Ejemplo;
{$APPTYPE CONSOLE}
uses Windows, Messages, SysUtils;
var
Terminar: Boolean;
procedure ProcessMessages;
var
Msg: TMsg;
begin
while PeekMessage(Msg,0,0,0,PM_REMOVE) do
begin
if Msg.Message = WM_QUIT then
begin
Terminar:= TRUE;
break;
end else
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
end;
function HandlerRoutine(dwCtrlType: DWORD): BOOL; stdcall;
begin
Result:= TRUE;
case dwCtrlType of
CTRL_C_EVENT:
Terminar:= TRUE;
CTRL_CLOSE_EVENT:
Terminar:= TRUE;
CTRL_LOGOFF_EVENT:
Terminar:= TRUE;
CTRL_SHUTDOWN_EVENT:
Terminar:= TRUE;
else
Result:= FALSE;
end;
end;
begin
Terminar:= FALSE;
if SetConsoleCtrlHandler(@HandlerRoutine,TRUE) then
while not Terminar do
begin
ProcessMessages;
if not Terminar then
Sleep(10);
end;
end.
Donde pone "Aquí haz lo que quieras" coloca tu código, solo recuerda, que si vas a colocar un bucle dentro de tu código, deberás tener en cuenta la variable Terminar y llamar de vez en cuando a la función "ProcessMessages" para vaciar la cola de mensajes.
Por cierto, para cerrar la aplicación puedes usar Ctrl+C o la X de la ventana con la consola, da igual, la aplicación se cerrara limpiamente poniendo la variable Terminar a true y saliendo del bucle.