program minEveProject;

program minEveProject;

//{$APPTYPE CONSOLE}  //不显示DOS窗口

uses
  SysUtils,
  Windows,
  Messages;

var
  h: HWND;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  repeat
    begin
      h := FindWindow(nil, 'Everything');
      PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0); //最小化
      Sleep(100);
    end;
  until h <> 0;
  exit;
end.