Как перехватывать kernel-signalsDelphi , ОС и Железо , KylixКак перехватывать kernel-signalsАвтор: http://www.swissdelphicenter.ch 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. Статья Как перехватывать kernel-signals раздела ОС и Железо Kylix может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |