监控后台程序。紧急！(50分)

启动外部程序，然后监控程序不停检查外部程序是否关闭，如果关闭，就自动启动外部程序，给出源码或者例子！紧急！

来个超级easy的
program WatchDog;

//{$APPTYPE CONSOLE}
uses
Windows,SysUtils;
var
handle:integer;
check :boolean; //便于以后的热键扩展
const classname='TForm_Main'; //假设你的exe的主窗体的名字
begin
check := true;
while (check) do
begin
handle:=findwindow(classname,nil);
if handle=0 then
begin
winexec('Pro.exe',SW_Normal);//你检测的外部程序的名字
end;
Sleep(2000);
end;
end.

这段代码是利用检测窗体名字的方法来检测exe是否在运行的，
复杂点你应该检测进程中是否有你的exe进程，

接受答案了.