FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Ocultar ventanas en el escritorio
Existe un botoncito en la barra de tareas de Windows que al oprimirlo oculta todas las ventanas que haya abiertas; seguro lo han visto .
¿Cómo hago esto en código? ¿Debo usar EnumWindows para ocultar una por una o existe alguna función de la API que facilite esto? // Gracias |
#2
|
||||
|
||||
¿Ocultar = Minimizar?
Puedes usar EnumWindows, o... prueba esto: Código:
var hWnd: THandle; begin hWnd := FindWindow('Shell_TrayWnd', nil); if hWnd <> 0 Then PostMessage(hWnd, WM_COMMAND, $001A3, 0); end; Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
||||
|
||||
¡Muy bueno el truco!. ¿De casualidad sabes cual es entonces el id del menú "Deshacer Minimizar todo para hacer lo inverso?
// Gracias |
#4
|
||||
|
||||
Código:
MINIMIZE_ALL = $01A3; RESTORE_ALL = $01A0; Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
||||
|
||||
Cita:
$01A4, $01A5, $01A6, ... // Saludos |
#6
|
||||
|
||||
Bueno, este es un tema de hace tres meses pero buscando otra cosa me encontré esto que puede interesarle a alguien:
Código:
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; Última edición por roman fecha: 11-02-2004 a las 07:59:56. |
|
|
|