http://translate.googleusercontent.com/translate_c?hl=es&langpair=en%7Ces&rurl=translate.google.com.ar&u=http://mattfleming.com/node/192&usg=ALkJrhjD04tOOu_VBphDR-BxN7qvlPtR3g
http://grimpidev.wordpress.com/2008/10/28/entender-el-plan-de-ejecucion-en-sql-server-20052008/
Mi nombre es Sebastian Castriotta y este blog es un intento de tips de diferentes lenguajes de programación.
lunes, 13 de febrero de 2012
miércoles, 1 de febrero de 2012
Bloquear Teclado Mouse
En Visual Fox 6
Thisform.AddProperty('valor',0)
Declare Long BlockInput In "user32" Integer nOpcion
BlockInput(1)
con CTRL+ALT+DEL y luego cancelar volves a tener la posibilidad de ingresar por teclado
*
** FUNCTION DesactivarTeclasWindows(tlEstado)
** Funcion para Desactivar las Teclas CRTL + ALT + SUPR de Windows
*
** Parametros
** tlEstado = Estado de las Teclas (VALOR LOGICO)
** .T. = Desactiva las Teclas
** .F. = Activa las Teclas
*
*** Rutina suministrada por: ROD - eendor@hotmail.com
*** Ultima Modificacion: Foxperto - foxperto@yahoo.com
*** Marzo 01 2002
*
**************************************************************************
*
FUNCTION DesactivarTeclasWindows(tlEstado)
DECLARE INTEGER SystemParametersInfo IN USER32.DLL ;
LONG uAction, ;
LONG uParam, ;
STRING lpvParam, ;
LONG fuWinIni
uAction = 97
lpvParam = '0'
fuWinIni = 0
If tlEstado = .T.
*--- deshabilita las teclas
uParam = 1
tnResultado = SystemParametersInfo(@uAction,@uParam,lpvParam,@fuWinIni)
Else
*--- habilita las teclas
uParam = 0
tnResultado = SystemParametersInfo(@uAction,@uParam,lpvParam,@fuWinIni)
EndIf
RETURN tnResultado
ENDFUNC
*
** Fin DesactivarTeclasWindows()
*
Thisform.AddProperty('valor',0)
Declare Long BlockInput In "user32" Integer nOpcion
BlockInput(1)
con CTRL+ALT+DEL y luego cancelar volves a tener la posibilidad de ingresar por teclado
*
** FUNCTION DesactivarTeclasWindows(tlEstado)
** Funcion para Desactivar las Teclas CRTL + ALT + SUPR de Windows
*
** Parametros
** tlEstado = Estado de las Teclas (VALOR LOGICO)
** .T. = Desactiva las Teclas
** .F. = Activa las Teclas
*
*** Rutina suministrada por: ROD - eendor@hotmail.com
*** Ultima Modificacion: Foxperto - foxperto@yahoo.com
*** Marzo 01 2002
*
**************************************************************************
*
FUNCTION DesactivarTeclasWindows(tlEstado)
DECLARE INTEGER SystemParametersInfo IN USER32.DLL ;
LONG uAction, ;
LONG uParam, ;
STRING lpvParam, ;
LONG fuWinIni
uAction = 97
lpvParam = '0'
fuWinIni = 0
If tlEstado = .T.
*--- deshabilita las teclas
uParam = 1
tnResultado = SystemParametersInfo(@uAction,@uParam,lpvParam,@fuWinIni)
Else
*--- habilita las teclas
uParam = 0
tnResultado = SystemParametersInfo(@uAction,@uParam,lpvParam,@fuWinIni)
EndIf
RETURN tnResultado
ENDFUNC
*
** Fin DesactivarTeclasWindows()
*
Suscribirse a:
Entradas (Atom)