Свернуть окна

[Михаил Юрьевич]

Подскажите как программно свернуть все окна

[beegl]

winexec(Pchar('rundll32 user,tilechildwindow'),sw_Show);

[Dux]

Выдает ошибку:

"Ошибка при загрузке user. Не найден указанный модуль."

[mutabor]

Попробуй это, подправь только

Function EnumProc (WinHandle: HWnd; Param: LongInt): Boolean; stdcall;
Begin
If (GetParent (WinHandle) = 0) and (not IsIconic (WinHandle)) and (IsWindowVisible(WinHandle)) Then
PostMessage (WinHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
Inc(Count);
End;
EnumProc := TRUE;
End;

Begin
Count:=0;
EnumWindows (@EnumProc, 0);
ShowMessage('Minimized: '+IntToStr(Count)+' windows');
End.

[beegl]

или это:

var  
  Form1: TForm1;  
  Count: integer;  
implementation  
  
{$R *.dfm}  
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;  
  
procedure TForm1.Button1Click(Sender: TObject);  
begin  
Count := 0;  
EnumWindows(@EnumProc, 0);  
end;  
  
end.

From Stilet: Про оформление кода не забываем

[Terran]

Можно сделать так:

Procedure MinAll;
Begin
Keybd_event(VK_LWIN,0,0,0);
Keybd_event(77,0,0,0);
Keybd_event(VK_LWIN,0,KEYEVENTF_KEYUP,0);
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
MinAll;
End;

From Stilet: Про оформление кода не забываем

[Михаил Юрьевич]

Сообщение от Dux

Выдает ошибку:

"Ошибка при загрузке user. Не найден указанный модуль."

А подскажите почему выдает такую ошибку и как исправить

[Stilet]

почему выдает такую ошибку

Наверное потому что user.dll в Винде не существует
И вообще tilechildwindow во-первых не так пишется (регистр букв учитывается) а во-вторых она никоим образом ничего не сворачивает.

[beegl]

ошибка скорее всего из-за того, что этот код доступен для 90х Виндовсов

[Dux]

Вот так все работает, проверил в Vista:

unit Unit1;
interface
uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;
type
    TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    private
     { Private declarations }
    public
     { Public declarations }    end;var
   Form1: TForm1;
   Total:integer;

implementation

{$R *.dfm}

Function EnumProc (WinHandle: HWnd; Param: LongInt): Boolean; stdcall;
   Begin
    If (GetParent (WinHandle) = 0) and (not IsIconic (WinHandle)) and 
    (IsWindowVisible(WinHandle)) Then
    PostMessage (WinHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
    Inc(Total);  EnumProc := TRUE;
   End;

procedure TForm1.Button1Click(Sender: TObject);
   Begin
     Total:=0;
     EnumWindows (@EnumProc, 0);
   End;

end.