Как перехватывать kernel-signals?

program TestSignals; 

{$APPTYPE CONSOLE} 

uses 
  Libc; 



var 
  bTerminate: Boolean; 

procedure SignalProc(SigNum: Integer); cdecl; 
begin 
  case SigNum of  
    SIGQUIT:  
      begin 
        WriteLn('signal SIGQUIT'); 
        bTerminate := true; 
      end; 
    SIGUSR1: WriteLn('signal SIGUSR1'); 
    else 
      WriteLn('not handled signal'); 
  end; 
  signal(SigNum, SignalProc); // catch the signal again 
end; 

begin 
  bTerminate := false; 

  signal(SIGQUIT, SignalProc); // catch the signal SIGQUIT to procedure SignalProc 
  signal(SIGUSR1, SignalProc); // catch the signal SIGUSR1 to procedure SignalProc 
   
  repeat  
    sleep(1); 
  until bTerminate; 
end. 

Взято с сайта



Содержание раздела

---