本程序通过调用kernel32.dll中的几个API 函数，搜索并列出系统中除本进程外的所有进程的ID、对应的文件说明符、优先级、CPU占有率、线程数、相关进程信息等有关信息，并可中止所选进程。
    本程序运行时会在系统托盘区加入图标，不会出现在按Ctrl+Alt+Del出现的任务列表中，也不会在任务栏上显示任务按钮，在不活动或最小化时会自动隐藏。不会重复运行，若程序已经运行，再想运行时只会激活已经运行的程序。
    本程序避免程序反复运行的方法是比较独特的。因为笔者在试用网上介绍一些方法后，发现程序从最小化状态被激活时，单击窗口最小化按钮时，窗口却不能最小化。于是笔者采用了发送和处理自定义消息的方法。在程序运行时先枚举系统中已有窗口，若发现程序已经运行，就向该程序窗口发送自定义消息，然后结束。已经运行的程序接到自定义消息后显示出窗口。

//工程文件procviewpro.dpr
program procviewpro;

uses
  Forms, windows, messages,  main in ''procview.pas'' {Form1};

{$R *.RES}
{
//这是系统自动的  
begin
  Application.Initialize;
  Application.Title :=''系统进程监控'';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
}

var
  myhwnd:hwnd;

begin
  myhwnd := FindWindow(nil, ''系统进程监控''); // 查找窗口
  if myhwnd=0 then                           // 没有发现，继续运行    
  begin
    Application.Initialize;
    Application.Title :=''系统进程监控'';
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else      //发现窗口，发送鼠标单击系统托盘区消息以激活窗口
    postmessage(myhwnd,WM_SYSTRAYMSG,0,wm_lbuttondown);
    {
     //下面的方法的缺点是：若窗口原先为最小化状态，激活后单击窗口最小化按钮将不能最小化窗口
     showwindow(myhwnd,sw_restore);
     FlashWindow(MYHWND,TRUE);
    }
end.

{
//下面是使用全局原子的方法避免程序反复运行
const
  atomstr=''procview'';

var
  atom:integer;
begin
  if globalfindatom(atomstr)=0 then
  begin
    atom:=globaladdatom(atomstr);
    with application do
    begin
      Initialize;
      Title := ''系统进程监控'';
      CreateForm(TForm1, Form1);
      Run;
    end;
    globaldeleteatom(atom);
  end;
end.
}


//单元文件procview.pas
unit procview;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,