关于获取窗体标题，紧急，帮帮忙啊

Question

我想对系统中运行的程序进行监控，需要得到这些程序的窗体标题，该怎么做啊？

Answer 1

uses tlhelp32procedure TForm1.Button1Click(Sender: TObject);
var
  lppe:tprocessentry32;
  sshandle:thandle;
  found:boolean;
begin
  sshandle:=createtoolhelp32snapshot(th32cs_snapall,0);
  found:=process32first(sshandle,lppe);
  while found do
  begin
    showmessage(lppe.szExeFile);//lppe.szexefile就是程序名
    found:=process32next(sshandle,lppe);
  end;
end;

Answer 2

lovelymelon(小人物) ： 
 lppe:tprocessentry32; 需要use 什么单元啊？

Answer 3

再麻烦一下，我想区别系统的proc和用户的proc该怎么做呢？