Свернуть все окна - delfcode
Понедельник, 05.12.2016, 21:37 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: Anton93 
delfcode » Delphi » Процедуры и функции Delphi » Свернуть все окна
Свернуть все окна
ThundeRLorDДата: Четверг, 28.01.2016, 19:42 | Сообщение # 1
Новичок
Зарегистрирован: 27.01.2016
Группа: Пользователи
Сообщений: 1
Статус: Offline
Сворачивает все окна кроме нашей программы

Код
function EnumMiniProc(Wnd : HWND; Param : Longint) : Boolean; stdcall;
begin
  Result := True;
  if (Wnd = Param) or (Wnd = Application.Handle) then
    Exit
  else if isWindowVisible(Wnd) and not isIconic(Wnd) and isWindow(Wnd) then
    ShowWindow(Wnd, SW_MINIMIZE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumMiniProc, Handle);
end;


Сообщение отредактировал dolphin - Понедельник, 07.03.2016, 16:58
 
delfcode » Delphi » Процедуры и функции Delphi » Свернуть все окна
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2016 Хостинг от uCoz