скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Как перехватывать 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.





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook