¿Cómo detecto CTRL+C en consola?

[Ñuño Martínez]

Empezado por Mastropiero

¿Lo has probado abriendo el ejecutable ya compilado, o sólo desde el IDE?

Lo he probado de varias formas.

Por cierto, que lo he consultado en la lista de correos de Free Pascal y me han dicho que en Linux no funciona. Para ello hay que utilizar un "signal handler" . No lo tengo claro porque el mensaje ha llegado corrupto y no lo he podido leer bien.

[[cHackAll]]

Debes revisar la API SetConsoleCtrlHandler

Código Delphi [-]
uses SysUtils, Windows; {$apptype console}
 
function HandlerRoutine(dwCtrlType: Cardinal): LongBool;
begin
 if dwCtrlType = CTRL_C_EVENT then Halt;
end;
 
begin
 SetConsoleCtrlHandler(@HandlerRoutine, True);
 WriteLn('Pulsa Ctrl+C para salir');
 while True do ReadLn;
end.

[Ñuño Martínez]

Gracias [ChackAll]