Minimizar todas las ventanas del escritorio

[movorack]

Hola foro...

Necesito minimizar todas las ventanas que tengo en mi escritorio y no se como hacerlo...

a ver si me explico mejor: es como presionar Windows+M o presionar "Mostrar Escritorio" en el Quick Launch.

Les agradezco la ayuda.

[dec]

Hola,

Algo así podría servir, aunque pudiera parecer lo contrario...


procedure MinimizeAllWindows();
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;

procedure RestoreAllWindows();
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;

[keyboy]

Otra manera:


// Minimizar ventanas
var
Shell: OleVariant;

begin
Shell := ComObj.CreateOleObject('shell.application');
Shell.MinimizeAll;
end;



// Restaurar ventanas
var
Shell: OleVariant;

begin
Shell := ComObj.CreateOleObject('shell.application');
Shell.UndoMinimizeAll;
end;


Bye

[jachguate]

Hola.

He editado el mensaje de keyboy, para cambiar la etiqueta code, por la etiqueta delphi, que además de mantener la indentación, resalta la sintaxis de este lenguaje.

Mas información, en el anuncio del día que se publicó la etiqueta delphi.

Hasta luego.

;)

[movorack]

muchas gracias por sus respuestas son muy utiles... :D

pero quisiera saber ahora como haria para minimizar todas y evitar que una ventana en especifico no se minimizara.

o que si esta ventana estuviera minimizada se maximizara.

agradezco sus ayudas hasta ahora lo que me han dicho funciona muy bien pero ahora tengo esta pequeña duda.

Gracias.