我在程序中用了windows的计算器.使用winexec函数,如何能够让计算器始终处于屏幕的最顶层?(30分)

如标题

WinExec('calc.exe',SW_SHOWNORMAL)

蠢办法，但可行。<br>先使用FindWindow找到应用程序的窗口的句柄, .<br>然后在Timer1<br>procedure TForm1.Timer1Timer(Sender: TObject);<br>var<br>&nbsp; &nbsp;wnd :HWND;<br>begin<br>&nbsp; wnd := FindWindow(nil,'计算器');//找到应用程序的窗口的句柄<br>&nbsp; SetForegroundWindow(wnd);<br>end;<br>&nbsp;

多人接受答案了。