Desativar tecla F10 do windows

[MGA]

Amigos,

Alguem sabe se é possível desativar a tecla F10 do windows?

Digo isso porque estou enfrentando problemas no meu sistema (DIALOG, TSBROWSE, etc) não funciona o F10.

Obrigado

[karinha]

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "Test"

   SetKey( VK_F10, { || NIL } )

   SetKey( VK_F2, { || MsgInfo( "'F2' is beeing pressed" ) } )

   oWnd:bKeyDown = { | nKey | MsgInfo( "Down: " + Str( nKey ) ) }
   oWnd:bKeyChar = { | nKey | MsgInfo( "Char: " + Str( nKey ) ) }


   ACTIVATE WINDOW oWnd

return nil
 

[MGA]

João,

Obrigado por responder, porem não funcionou. Compilei o seu exemplo e o F10 não responde!

Um abraço

[karinha]

O titulo do seu tópico é:

DESATIVAR TECLA F10 DO WINDOWS.

Aguarde.

[karinha]

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "Test"

   //-> Tecla Reservada Para Windows, uso nao recomendavel.
   SetKey( VK_F10, { || MsgInfo( "'F10' is beeing pressed-Reserved for Windows" ) } )

   SetKey( VK_F2, { || MsgInfo( "'F2' is beeing pressed" ) } )

   oWnd:bKeyDown = { | nKey | MsgInfo( "Down: " + Str( nKey ) ) }
   oWnd:bKeyChar = { | nKey | MsgInfo( "Char: " + Str( nKey ) ) }


   ACTIVATE WINDOW oWnd

return nil
 

[MGA]

obrigado