vbasicworld : Mensaje: Re: [VBASICWORLD] Minimizar

Probaste a maximizar tu programa y mostrarlo encima de los demas sin dejar ver lo que hay en los demas programas, de todas formas si eso no te vale creo que en algun lado vi la forma de minimizar todas las ventanas, pero no se si se mantenian hasta nueva orden minimizadas, lo puedes hacer con API

"Paul P. Garcia" <vbasicred@...> wrote:

Saludos.

Estoy apunto de terminar mi programa... Se trata de un programa muy parecido a easy cafe. Lo unico que me faltaria, es la facultad de minimizar todos los programas.

Cuando el tiempo de uso de la maquina expire. Quiero que se minimice todos los programas que estan en ejecución incluyendo los juegos, y que luego me muestre en toda la pantalla mi programa. Solo mi programa.

El siguiente codigo que ofrezco minimiza todos los programas pero no minimiza los juegos. bueno lo he probado cuando uno esta jugando Gunbound (un juego muy popular por internet) este juego no se minimiza cuando se ejecuta el codigo. El juego sigue en pantalla (ojo solo minimizar no cerrar o finalizar el programa)

Quisiera algun codigo para poder minimizar todos los programas incluyendo los juegos y que luego me muestre solo mi programa. Muy importante que sea compatible con Windows XP Pro.

CODIGO:

Private Declare Sub keybd_event Lib "user32" _
    (ByVal bVk As Byte, _
     ByVal bScan As Byte, _
     ByVal dwFlags As Long, _
     ByVal dwExtraInfo As Long)

    Const KEYEVENTF_KEYUP = &H2
    Const VK_LWIN = &H5B

Private Sub Command1_Click()
    ' Código de la tecla Windows
    Call keybd_event(VK_LWIN, 0, 0, 0)

    ' Código de la tecla "M"
    Call keybd_event(77, 0, 0, 0)

    ' Simula la liberación de la tecla
    Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub

*************************

O de la siguiente forma

*****************************

Set objSh = CreateObject("Shell.Application")

    objSh.Explore ("C:\") 'Abre el Explorador de windows en la carpeta que se le indique.
    objSh.MinimizeAll    'Claro....... minimiza todas las ventanas
    objSh.FileRun    'Abre el cuadro de diálogo de Windows Ejecutar

'pero la linea
objSh.ToggleDesktop

Los codigos de arriba solo minimizan ventanas de programas y no haci juegos, como GUNBOUND u otros.

Gracias de antemano. Espero me puedan ayudar.

Tu amigo Paul

Web: http://www.mundovb.net Para darte de baja envía un mensaje a: vbasicworld-unsubscribe@yahoogroups.com

Consejos de Yahoo! Grupos

¿Sabías que...?

Mensajes