请大侠帮我看看这段代码为什么不能用？是不是缺点什么或者没有声明什么？(100分)

这是大富翁论坛高手给我的关闭所有进程的代码，可是我不能用。
请大侠帮我看看这段代码为什么不能用？是不是缺点什么或者没有声明什么？
procedure TForm1.Button1Click(Sender: TObject);
var
pTask : PTaskEntry;
Task : Bool;
ThisTask: THANDLE;
begin
GetMem (pTask, SizeOf (TTaskEntry));
pTask^.dwSize := SizeOf (TTaskEntry);
Task := TaskFirst (pTask);
while Task do
begin
if pTask^.hInst = hInstance then
ThisTask := pTask^.hTask
else
TerminateApp (pTask^.hTask, NO_UAE_BOX);
Task := TaskNext (pTask);
end;
TerminateApp (ThisTask, NO_UAE_BOX);
end;

试试！
uses TLHelp32;

还是不能用！提示：
Undeclared identifier:'PTaskEntry '.
哪位好心人能不能帮我试一试这段代码，要保证我可以用的。是不是还缺少什么声明？

这PTaskEntry是自己定义的什么类型吧？
定义部分哪儿去了？？

可以说清楚你想作什么么？

看看你的PTaskEntry是在那里定义的呵
然后把定义它的那个单元声明uses上
如果是自己定义的
可以写上定义

过期结束