托盘定时强制前置显示

1、窗体放置控件TRzTrayIcon

procedure RzTrayIcon1MinimizeApp(Sender: TObject);
begin
? RzTrayIcon1.ShowBalloonHint(Application.Title, '您可以在此处找到我呦！', bhiInfo);
end;

2、隐藏窗体

Application.Minimize;

3、强制前置显示

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;

4、定时前置显示

procedure TfrmMain.tmr1Timer(Sender: TObject);
var
  i:Integer;
begin
  try
    try
      lbl1.Caption:= IntToStr(StrToInt(lbl1.Caption)-1);
      i:= StrToInt(lbl1.Caption);
      if i=0 then
      begin
        setAppFront;
        tmr1.Enabled:= False;
      end;

    except
      on e:Exception do
      begin

      end;
    end;
  finally
  end;

end;