[原创]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);

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/634491/viewspace-201660/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/634491/viewspace-201660/