想写一个进程监视的工具！ 给提点意见该怎么搞啊！(100分)

功能： 每10秒分析一次系统进程， 如果发现进程 123.exe<br>则。。。。<br>否则。。。。<br><br>就是这 10 秒分析一次系统进程该怎么搞啊~？？

Toolhelp32单元里有进程枚举等函数库供使用。

procedure TForm1.Button1Click(Sender: TObject);<br>var ///////得到运行程序////////////<br>&nbsp; hCurrentWindow: HWnd;<br>&nbsp; szTEXt: array[0..254] of Char;<br>begin<br>&nbsp; hCurrentWindow := Getwindow(Handle, GW_HWNDFIRST);<br>&nbsp; while hCurrentWindow &lt;&gt; 0 do begin<br>&nbsp; &nbsp; if GetwindowText(hCurrentWindow, @szTEXt, 255) &gt; 0 then begin<br>&nbsp; &nbsp; &nbsp; Memo1.Lines.Add(strpas(@szTEXt));<br>&nbsp; &nbsp; &nbsp; Memo1.Lines.Add(inttostr(getWindowThreadProcessId(hCurrentWindow, nil)));<br>&nbsp; &nbsp; end;<br>&nbsp; &nbsp; hCurrentWindow := Getwindow(hCurrentWindow, GW_HWNDNEXT);<br>&nbsp; end;<br>end;