Всем привет! Я новичок в Delphi) Прошу помощи экспертов. Мне нужно добавить процедуру чтобы свернулись/скрылись все окна раб. стола кроме своей формы.
Допустим играет Winamp или просматриваю картинки. Я запускаю project.exe и все активные окна сворачиваются кроме project2.exe
Помогите сделать плиз) Нашел в Google такой код:
Код:
var WH:HWnd;
begin
WH:=Handle;
repeat
WH:=GetNextWindow(WH,GW_HWNDNEXT);
if (GetParent(WH)=0)and(not IsIconic(WH))and(IsWindowVisible(WH)) then
PostMessage(WH,WM_SYSCOMMAND,SC_MINIMIZE,0);
until WH=0;
Но здесь сворачиваются все окна.