怎样取得应用程序的句柄？(200分)

<br>var<br>&nbsp; I: Integer;<br>&nbsp; hWnd: Integer;<br>&nbsp; hWndArray: array [1..6] of Integer;<br>begin<br>&nbsp; hWnd := FindWindow('Notepad', nil);<br>&nbsp; hWndArray[1] := hWnd;<br>&nbsp; For I := 2 to 6 Do<br>&nbsp; &nbsp; Begin<br>&nbsp; &nbsp; &nbsp; hWndArray[I] := GetNextWindow(hWnd, GW_HWNDNEXT);<br>&nbsp; &nbsp; &nbsp; hWnd := hWndArray[I];<br>&nbsp; &nbsp; End;<br>&nbsp; ShowMessage('End');<br>