Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Как минимизировать все окна

Автор: Dreyka 5.6.2005, 15:06

Добрый день.
Мне нужно чтобы программа при запуске минимизировала все окна, а при закрытии восстанавливала их.

Автор: RA 5.6.2005, 15:45

Код

uses
ComObj

procedure Minim;
var
   Shell : OleVariant;
begin
   Shell := CreateOleObject('Shell.Application') ;
   Shell.MinimizeAll;
end;

Автор: poor_yorik 9.6.2005, 15:34

Если минимизировать окна всех запущеніх приложений, то код такой.

Код


program Minimize;
uses Windows, Messages;
var
  Count: integer;

function EnumProc(WinHandle: HWnd; Param: LongInt): Boolean; stdcall;
begin

  if (GetParent(WinHandle) = 0) and (not IsIconic(WinHandle)) and
    (IsWindowVisible(WinHandle)) then
  begin
    PostMessage(WinHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
    Inc(Count);
  end;
  EnumProc := TRUE;
end;

begin

  Count := 0;
  EnumWindows(@EnumProc, 0);
  Writeln('Minimized:', Count, ' windows');
end.