Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-01-2008
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Poder: 20
movorack Va camino a la famamovorack Va camino a la fama
Minimizar todas las ventanas del escritorio

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.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita
  #2  
Antiguo 11-01-2008
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.119
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

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

Código Delphi [-]
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;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #3  
Antiguo 12-01-2008
keyboy keyboy is offline
Miembro
 
Registrado: oct 2004
Posts: 367
Poder: 21
keyboy Va por buen camino
Otra manera:

Código Delphi [-]
// Minimizar ventanas
var
  Shell: OleVariant;

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

Código Delphi [-]
// Restaurar ventanas
var
  Shell: OleVariant;

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

Bye

Última edición por jachguate fecha: 12-01-2008 a las 03:51:20. Razón: cambiar etiqueta code por etiqueta delphi
Responder Con Cita
  #4  
Antiguo 12-01-2008
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 28
jachguate Va por buen camino
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.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
  #5  
Antiguo 12-01-2008
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Poder: 20
movorack Va camino a la famamovorack Va camino a la fama
Wink Gracias

muchas gracias por sus respuestas son muy utiles...

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.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Extensión de escritorio - No minimizar form contenido ariefez Varios 8 30-09-2006 02:48:35
Minimizar todas las ventanas santiago14 Varios 2 17-09-2004 04:34:01
minimizar todas las ventanas. soyhugo Varios 2 18-02-2004 14:11:26
Ocultar ventanas en el escritorio roman API de Windows 5 11-02-2004 08:57:44
Sobre minimizar ventanas o Form,s Tonio Varios 2 15-06-2003 19:30:29


La franja horaria es GMT +2. Ahora son las 01:39:17.


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
Copyright 1996-2007 Club Delphi