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

[Veiron]

Ранее пользовался компонентом Microsoft Shell Controls And Automation:

Shell1.ToggleDesktop

все легко и просто, перешел на обновленный Windows и узнал что он эту комманду не воспринимает, нужно искать новое решение желательно не прибегая к излишним компонентам что бы оно работало на всех виндах, подскажите пожалуйста как свернуть все окна?

[Terran]

Попробуй такой вариант:
Procedure TForm1.Timer1Timer(Sender: TObject);
Var
H:HWND;
Begin
While true Do
Begin
H:=GetForegroundWindow;
ShowWindow(H,SW_MINIMIZE);
Sleep(500);
End;
End;

[Veiron]

Свернуло (папки почему то со второго раза пропустил, т.е. не свернул), есть что нибудь более мягкое, а то такие непередаваемые ощущения происходящего (особенно когда это пытаеться свернуть все окна вместе с Панелью задач =) ), да и обратно раскрыть окна предоставляет не малых усилий?

[Terran]

Можешь опробовать такой вариант=)
var
Form1: TForm1;
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;

[Veiron]

Неполучилось, либо по тому что я не умею пользоваться функциями (вставил в кнопку и просто не прокатило), либо касяк в коде хотя на глаз более обнодяжевающий вариант нежели первый...

[FaTaL]

Пример от Terran'a работает. Вот листинг:

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;
  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.

[Veiron]

Пошло, спасибо

[Ниманя]

хочу чтоб при нажатии на кнопку все формы закрывались и оставалась только главная! Делаю так:
Form1.Show;
ShowWindow(Form43.Handle,SW_HIDE);
ShowWindow(Form44.Handle,SW_HIDE);
но это надо каждую прописывать...а как нибудь одной функцией нельзя??