Как свернуть все окна кроме нашей формы?

// Любимая наша процедура.
{Для того чтобы использовать данный пример необходимо наличие кнопки button1.}
function enumminiproc (wd: hwnd;
param: longint): boolean;
stdcall;
// Обязательно stdcall !!!
begin
if wd<>form1.handle then // если это не наша программа
if iswindowvisible(wd) then // если окно видимо
if not isiconic(wd) then // если окно не свернуто
if iswindow(wd) then // и вообще это - окно.
showwindow(wd, sw_minimize);
// свернем его.
enumproc := true;
// продолжаем перебирать все окна системы.
end;
 
procedure tform1.button1click(sender: : tobject);
// допустим, закрываем по нажатию на клавишу
begin
enumwindows (@enumminiproc, 0);
// отрабатываем сворачивание окон.
end;
 
Для того чтобы окно программы тоже сворачивалось достаточно убрать строку if wd<>form1.handle then в enumminiproc
Конечно, можно поставить еще массу условий, по которым будут минимизироваться окна, но это уже дело конкретной задачи.
Еще один пример, который бывает зачастую нужен:
2) Как закрыть (или постоянно закрывать) окна, например содержащие в заголовке подстроку «Реклама»
Закрыть все окна, содержащие определенную подстроку в заголовке.
const
reclamaname : string = 'Реклама' ;
// строка, по которой мы узнаем, что это - реклама.
timeinterval : integer = 500;
// Интервал, с которым будем проверять наличие окон
{Для того чтобы использовать данный пример необходимо наличие таймера timer1.}
// Любимая наша процедура
function enumcloseproc (wd: hwnd;
param: longint): boolean;
stdcall;
// Обязательно stdcall !!!
var
nm:array[0..255] of char;
// буфер для имени
zname:string;
 
begin
getwindowtext(wd,nm,255);
// считываем текст заголовка окна
zname:=ansiuppercase(string(nm));
// преобразуем к верхнему регистру т.е РЕКЛАМА
if pos(reclamaname,zname)<>0 then sendmessage(wd,wm_syscommand,sc_close,0);
enumproc := true;
// продолжаем перебирать все окна системы.
end;
 
procedure tform1.timer1timer(sender: tobject);
// будем проверять по таймеру…
begin
timer1.interval:= timeinterval;
// установим время до следующего вызова
enumwindows (@enumcloseproc, 0);
// отрабатываем закрытие окон.
end;