Minimizar / Restaurar todo

[Bicho]

Para minimizar todo, lo único que hacemos es simular la pulsación de las teclas a modo de combinación Windows + M


procedure MinimizarTodo;
begin
keybd_event(VK_LWIN,MapvirtualKey( VK_LWIN,0),0,0) ;
keybd_event(Ord('M'),MapvirtualKey(Ord('M'),0),0,0);
keybd_event(Ord('M'),MapvirtualKey(Ord('M'),0),KEYEVENTF_KEYUP,0);
keybd_event(VK_LWIN,MapvirtualKey(VK_LWIN,0),KEYEVENTF_KEYUP,0);
end;


Para restaurarlo todo lo mismo pero la combinación es Shift + Windows + M


procedure RestaurarTodo;
begin
keybd_event(VK_LWIN, MapvirtualKey( VK_LWIN, 0), 0, 0);
keybd_event(VK_SHIFT, MapvirtualKey( VK_SHIFT, 0), 0, 0);
keybd_event(Ord('M'), MapvirtualKey( Ord('M'), 0), 0, 0);
keybd_event(Ord('M'),MapvirtualKey(Ord('M'),0),KEYEVENTF_KEYUP,0);
keybd_event(VK_SHIFT,MapvirtualKey(VK_SHIFT,0),KEYEVENTF_KEYUP,0);
keybd_event(VK_LWIN,MapvirtualKey(VK_LWIN,0),KEYEVENTF_KEYUP,0);
end;

[roman]

Otra forma de hacerlo


uses
ComObj;

procedure OcultarVentanas;
var
Shell: OleVariant;

begin
Shell := CreateOleObject('Shell.Application');
Shell.MinimizeAll;
Shell := Unassigned;
end;

procedure MostrarVentanas;
var
Shell: OleVariant;

begin
Shell := CreateOleObject('Shell.Application');
Shell.UndoMinimizeAll;
Shell := Unassigned;
end;

[AGAG4]

No me funciona ninguno de los 2 trucos, será porque uso ShowModal en la ventana ????