列表5.7.txt

klinux书籍的配套光盘。可以学习学习。

【列表5.7】程序bgTest。
{bgTest.dpr - Illustrates background processes }
program bgTest;
{$APPTYPE CONSOLE}

uses SysUtils, Libc;

begin
   WriteLn ('bgTest: Process ID = ', getpid);
   WriteLn ('Program going to background');
   if daemon (0, 0) = -1 then
       WriteLn (Format ('Error %d calling daemon', [errno]))
   else
       repeat
          sleep (60);
       until false;
end.