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