Delphi使程序的窗口出现在最前面并激活

在写程序的时候经常碰到这样的需求，如何使处于后台的程序出现在最前面并得到输入焦点？

我在网上搜索了很多次，大致搜到的答案如下：

一、最小化的恢复最小化

if (IsIconic(Handle)) then

ShowWindow(Hanlde, SW_RESTORE)

二、使用BringToFront

三、使用SetWindowPos

第一种方法有一个问题，恢复窗口后不能再次最小化。

第二种在XP下使用时只能使得任务栏标题闪烁

第三种方法不能使得窗口激活，也就是不能得到输入焦点

常用的方法是 第一种 + 第三种， 当然还是有上述的问题。

我试图找到一个简单的方法，但是最终失败了。于是只好使用了一个笨办法来解决这个问题，实际上就是在第一种 + 第三种 方法的基础上做了一点点修改。

示例代码如下：

//判断Application是否最小化，而不是主窗口的Handle, 使用Restore来还原

if (IsIconic(Application.Handle)) then

Application.Restore;

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);

SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);

//保存鼠标位置，模拟点击窗口，然后再还原鼠标位置

GetCursorPos(OldPt);

NewPt := Point(0, 0);

Windows.ClientToScreen(Handle, NewPt);

SetCursorPos(NewPt.X, NewPt.Y);

mouse_event(MOUSEEVENTF_LEFTDOWN, NewPt.X, NewPt.Y, 0, 0);

mouse_event(MOUSEEVENTF_LEFTUP, NewPt.X, NewPt.Y, 0, 0);

SetCursorPos(OldPt.X, OldPt.Y);