Aug 22
Una de las utilidades de la función PostMessage es comunicarse con las ventanas y controles pero de manera diferente que la función Sendmessage.
En este caso se le pasara el titulo de una ventana y a través de la función FindWindow se obtendrá el handle de ella y se le pasara el argumento para cerrar esta ventana. El ejemplo se explica con la ventana Panel de Control; por lo tanto abra esta ventana
Long hwnd, Long wMsg, Long wParam, Long lParam
#define WM_CLOSE 16
Declare integer FindWindow in "user32" ;
string lpClassName, string lpWindowName
cCerrar = FindWindow(0,"Panel de control")
=PostMessage(cCerrar ,WM_CLOSE, 0, 0)
También podemos utilizar estas dos funciones (FindWindow y PostMessage) para minimizar y restaurar todas las ventanas activas; esta caracteristicas también es posible con la función Keyb_Event.
- Declare integer PostMessage in "user32";
Long hWnd, Long wMsg, Long wParam, Long lParam - Declare integer FindWindow in "user32" ;
- String lpClassName,;
- String lpWindowName
#define WM_COMMAND 273
#define MIN_ALL 419
#define MIN_ALL_UNDO 416
&&restaura todo lo minimizado
lngHwnd = FindWindow("Shell_TrayWnd", "")
=PostMessage(lngHwnd, WM_COMMAND, MIN_ALL_UNDO , 0)
&& Minimiza todo
lngHwnd = FindWindow("Shell_TrayWnd", "")
=PostMessage(lngHwnd, WM_COMMAND, MIN_ALL , 0)
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
