Delphi使程序的窗口出現在最前面並激活

procedure setAppFront();
//使程序的窗口出現在最前面並激活
var
  pt, OldPt, NewPt: TPoint;
begin
  //判斷Application是否最小化，而不是主窗口的Handle, 使用Restore來還原
  if IsIconic(Application.Handle) then
    Application.Restore;

  SetWindowPos(Application.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);
  SetWindowPos(Application.Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);

  // 保存鼠標位置，模擬點擊窗口，然后再還原鼠標位置
  GetCursorPos(OldPt);
  NewPt:=Point(0, 0);
  Windows.ClientToScreen(Application.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);
end;