列表5.21.txt

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

【列表5.21】读取一个进程的stat文件。
type
   // The TProcStat record contains the information stored
   // in the process's stat file.
   // See "man 5 proc" for information on these fields.
   TProcStat = record
      pid          : __pid_t;  // process id
      comm       : String;   // Filename of executable
      state        : char;    // RSDZT
      ppid         : __pid_t;  // parent process ID
      pgrp         : __pid_t;  // process group ID
      session      : integer;  // session id
      tty            : integer;  // tty process uses
      tpgid         : __pid_t;  // pid of tty owner
      flags         : cardinal; //
      minflt         : cardinal; // # of minor faults for process
      cminflt        : cardinal; // # of minor faults for process and children
      majflt         : cardinal; // # of major faults for process
      cmajflt       : cardinal; // # of major faults for process and children
      utime        : cardinal; // time scheduled in user mode
      stime       : cardinal; // time scheduled in kernel mode
      cutime      : cardinal; // time scheduled in user mode, including children
      cstime      : cardinal; // time scheduled in kernel mode, including children
      counter     : integer;  // Next time slice
      priority       : integer;  // current priority, plus 15
      timeout       : cardinal; // time of next timeout
      itrealvalue    : cardinal; // next SIGALRM time
      starttime     : integer;  // time process started
      vsize         : cardinal; // Virtual memory size
      rss          : cardinal; // resident set size
      rlim          : ca.rdinal; // RSS limit
        startcode     : cardinal; // start of code space
        endcode     : cardinal; // end of code space
        startstack    : cardinal; // start of stack address
        kstkesp     : cardinal; // current stack pointer
       kstkeip     : cardinal; // current instruction pointer
       signal       : integer;  // bitmap of pending signals
       blocked     : integer;  // bitmap of blocked signals
       sigignore   : integer;  // bitmap of ignored signals
       sigcatch    : integer;  // bitmap of caught signals
       wchan       : cardinal; // channel
     end;
 // ProcGetStat - Return a TProcStat record that contains the
 // information from the process's stat file.
 function ProcGetStat (pid: __pid_t) : TProcStat;
 const
    // scanf string for stat file
   StatScanfFormat =
       '%d %s %c %d %d %d %d %d %u %u %u %u %u %u %u %u %u %d %d %u '+
       '%u %d %u %u %u %u %u %u %u %u %d %d %d %d %u';
var
   s : TProcStat;
   pcomm : PChar;
   stat : String;
begin
  stat := ProcReadFileString (pid, 'stat');
  // allocate string for executable file name.
// this is longer than absolutely necessary, but that's
  pcomm := StrAlloc (Length (stat));
  try
     sscanf (PChar (stat), StatScanfFormat,
        @s.pid, pcomm,   @s.state,        @s.ppid,
        @s.pgrp,         @s.session,      @s.tty,
        @s.tpgid,         @s.flags,        @s.minflt,
        @s.cminflt,       @s.majflt,        @s.cmajflt,
        @s.utime,        @s.stime,        @s.cutime,
        @s.cstime,       @s.counter,      @s.priority,
        @s.timeout,      @s.itrealvalue,    @s.starttime,
        @s.vsize,        @s.rss,          @s.rlim,
        @s.startcode,    @s.endcode,      @s.startstack,
        @s.kstkesp,      @s.kstkeip,       @s.signal,
        @s.blocked.      @s.sigignore.     @s.sigcatch,
        @s.wchan);
     s.comm := pcomm;
  finally
     StrDispose (pcomm);
  end;
   Result := s;
end;