Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Minimizar / Restaurar todo (https://www.clubdelphi.com/foros/showthread.php?t=80467)

Bicho 12-06-2006 16:28:53

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

Código Delphi [-]
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

Código Delphi [-]
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 13-06-2006 07:01:42

Otra forma de hacerlo

Código Delphi [-]
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 29-06-2006 00:15:06

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


La franja horaria es GMT +2. Ahora son las 19:17:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi