La función GetSystemMetrics provee mucha información a Windows, En este caso podemos determinar la forma como inicio Windows; Es decir: Modo a prueba de fallos, Normal, o con soporte de red. Declare integer GetSystemMetrics in "user32";
Long nIndex
#define SM_CLEANBOOT 67
iNiWin = GetSystemMetrics(SM_CLEANBOOT)
Do Case iNiWin
Case = 1
=MESSAGEBOX("A prueba de Fallos")
Case = 2
=MESSAGEBOX("A prueba de fallos con soporte de Red")
Otherwise
=MESSAGEBOX("Windows inicio normalmente")
Endcase
- Devuelve los valores acerca de la configuración del monitor, resolución, numero de colores soportados, entre otros. útil para programación multimedia.
Declare integer GetSystemMetrics in "user32",;
Long nIndex
resolucionX = GetSystemMetrics()
resolucionY = GetSystemMetrics()
=messagebox(str(resolucionX)+" X"+ str(resolucionY))
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