Desactivar tecla windows desde vfp

[adem adem]

Hola a todos 

Necesito vuestra ayuda, en como desactivar la tecla WINDOWS.

tengo dos formularios, uno siempre es visible y el otro lo llamó desde una clase "oForm", y quiero que cuando aparezca el oForm se desactiva la tecla windows y viceversa.

Quería poner este código en el init del premier formulario para que relacionarlo con el  oForm

pero ma de el error en la línea marcada abajo "too many arguments"

#DEFINE WH_KEYBOARD_LL    13
#DEFINE HC_ACTION         0
#DEFINE VK_LWIN           91

DECLARE INTEGER SetWindowsHookEx IN user32 ;
INTEGER idHook, hMod
DECLARE INTEGER CallNextHookEx IN user32 ;
INTEGER hHook, nCode, wParam, lParam
DECLARE INTEGER UnhookWindowsHookEx IN user32 ;
INTEGER hHook
DECLARE INTEGER GetModuleHandle IN kernel32 ;
INTEGER hModule

* Instale el hook de teclado
hModule = GetModuleHandle(0)
idHook = WH_KEYBOARD_LL
hHook = SetWindowsHookEx(idHook, "ocallback", hModule, 0)

* Función de devolución de llamada del hook
**FUNCTION ocallback(INTEGER nCode, INTEGER wParam, INTEGER lParam)
    * Verifique si la tecla Windows ha sido pulsada
    IF nCode = HC_ACTION AND wParam = WM_KEYDOWN AND KEYBOARD(VK_LWIN) > 0
        * Cancelar el evento de teclado
        RETURN 1
    ENDIF
    * Dejar que se propague el evento de teclado
    RETURN CallNextHookEx(hHook, nCode, wParam, lParam)
**ENDFUNC

* Eliminar el hook de teclado
UnhookWindowsHookEx(hHook)

Agradezco vuestra ayuda y sugerencia.

Un saludo.

[Allan Raúl Acuña]

Revisa la declaracion de la API

DECLARE INTEGER SetWindowsHookEx IN user32;

      INTEGER idHook,;

      INTEGER lpfn,;

      INTEGER hMod,;

      LONG dwThreadId  

Saludos cordiales.

Lic. Allan Raúl Acuña

Analista Programador
msn= allan...@hotmail.com
skype= NicEasySoft

            +(505) 8339 2675

Managua, Nicaragua

Centroamérica

---

De: publice...@googlegroups.com <publice...@googlegroups.com> en nombre de adem adem <76xad...@gmail.com>
Enviado: sábado, 11 de febrero de 2023 19:20
Para: publice...@googlegroups.com <publice...@googlegroups.com>
Asunto: [vfp] Desactivar tecla windows desde vfp

 

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMbvQjEkfSSEBXEruBqW-HTRZXsWdoXB_dz7SrLseHbpYQVPAg%40mail.gmail.com.

[adem adem]

Gracias Allan

He comprobado y tenes razon, pero sigo sin lograr desactivar la tecla..

Un cordial saludo

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CO6PR06MB7297DD0F636F7E5B3874CB1CC5A29%40CO6PR06MB7297.namprd06.prod.outlook.com.

[Zarlu]

Buenas tardes 76xademx76 !

Para comprobar el código que estas usando prueba  deshabilitando la tecla PrintScreen.

#Define VK_PRINTSCREEN     0x2c

Hay algunos otros códigos que he probado y ya no funcionan para desactivar la tecla windows.

Incluso se puede ocultar la barra de tareas, pero el botón inicio persiste.

Suerte

zarlu

Chetumal, Quintana Roo, México

[adem adem]

Gracias Zarlu... Lo intentare 

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/4332f00a-b962-4d34-86db-688fbc91f23en%40googlegroups.com.

[Octavio Rodriguez]

en corto, quitale la tecla WIN al teclado

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMbvQjGBVoyJ0pgdvhbt%3DwdNXN4oBiL2GShwKLAoHXPfh1%2B-Rw%40mail.gmail.com.

[adem adem]

Gracias Octavio, pero no logro quitarla, me gustaría si me sugieres como hacerlo,🙏 

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAB87mh%2B%2BYRbjj54Phr67DoQO9nyaLN49p-Bqk1Fd%3DoDU8r37vw%40mail.gmail.com.