如何获得系统中所有运行着的应用程序的句柄?(75分)

我用 var handle: hWnd;
然后就不知道该如何赋值了
总不能等于 findwindow(nil,null)吧?

望指点

;用EnumWindows可以实现

;例程可参考<<Delphi4.0从入门到精通>>51页。
部分代码如下：

type
EnumWindowsProc = function(HWND: THandle; Param: Pointer): Boolean; stdcall;

function GetTitle(Hwnd: Thandle; Param: Pointer):Boolean;stdcall;
var
text: string;
begin
SetLength(Text, 100);
GetWindowText(Hwnd, PChar(Text), 100);//获得窗口标题
。。。。
Result := true;
end;

procedure TForm1.GetWindow;
var
EWProc: EnumWindowsProc;
begin
EWProc := GetTilte;
EnumWindows(@EWProc, 0);
end;

具体情况可以参考以上的程序片断

<< 例程可参考<>51页。
不知是哪儿的第51页?
还有 EnumWindowsProc 到底有哪些方法?好象Delphi的帮助文件里没有?

例程可参考《Delphi4.0从入门到精通》51页。你就懒得看一下源代码？

接受答案了.