窗口句柄问题(40分)

如果系统有两个软件在运行，我想得到它们的句柄，怎样写？

如果这些程序是普通的窗口程序，如：计算器，写字板，等等<br>那么可以通过程序主窗口的标题获得窗口的句柄，应用API函数：<br>HWND FindWindow(<br>&nbsp; &nbsp; LPCTSTR lpClassName, // pointer to class name<br>&nbsp; &nbsp; LPCTSTR lpWindowName // pointer to window name<br>&nbsp; &nbsp;

例如，找到当前运行中的windows自带计算器的句柄：<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; h:THandle;<br>begin<br>&nbsp; h := FindWindow(nil,'计算器');<br>&nbsp; if h &lt;&gt; 0 then<br>&nbsp; &nbsp; ShowMessage('找到！'+'句柄为' + IntToStr(h))<br>&nbsp; else<br>&nbsp; &nbsp; ShowMessage('没有找到！')<br>end;

接受答案了.