怎样用delphig关闭最小化的windows应用程序(100分)

我用ShellExecute(handle,   'open',   'calc.exe',   nil,   nil,   sw_shownormal);打开windows计算器,计算器没最小化时用SENDMESSAGE(findWindow(nil,'计算器'),WM_CLOSE,0,0)能关闭，最小化时不能，怎样才能关闭最小化的程序，谢谢赐教

SENDMESSAGE(findWindow('类名称',nil),WM_CLOSE,0,0)

procedure TForm1.FormCreate(Sender: TObject);<br>var<br> &nbsp;H: Hwnd;<br>begin<br> &nbsp;H := findWindow(nil, '计算器');<br> &nbsp;if H &lt;&gt; 0 then begin<br> &nbsp; &nbsp;if IsIconic(H) then<br> &nbsp; &nbsp; &nbsp;ShowWindow(H, SW_RESTORE)<br> &nbsp; &nbsp;else<br> &nbsp; &nbsp; &nbsp;SetForegroundWindow(H);<br> &nbsp; &nbsp;SENDMESSAGE(H, WM_CLOSE, 0, 0)<br> &nbsp;end;<br>end;

问题没有了，又没出现这种情况了，我估计是不是运行速度的问题，findwindow还没执行完，就执行下步操作了，就认为没找到

还可能，findwindow不是异步函数

同意楼上说法...