Olá!
GDPR
GDPR

Moderador: Moderadores
Case nOpcao = 0
...
Case !LastKey() = 7
...
otherwise
[b]@ 24,00 say "Pressionou tecla DEL"[/b]
aFiles[nOpcao] = StrTran(aFiles[nOpcao],'','ú')
Alert(aFiles[nOpcao]+" - "+"Tecla Del")
EndCase
rochinha escreveu:Pra mim o DEL se resolve com o código 46.
E o código Ascii do ponto é..... 46, seria a tecla DEL com o numérico ligado, mas desde que seja a DEL do teclado numérico.
rochinha escreveu:Ai complica, se o teclado estiver para EUA ou PTBR modifica o resultado, como saber o que o teclado está obdecendo?O Set Language do Harbour poderia interferir ou fixar nestes resultados?
#define HKL_PREV 0
#define HKL_NEXT 1
#define KLF_ACTIVATE 0x00000001
#define KLF_NOTELLSHELL 0x00000080
#define KLF_REPLACELANG 0x00000010
#define KLF_SUBSTITUTE_OK 0x00000002
#define KLF_REORDER 0x00000008
#define KLF_RESET 0x40000000
#define KLF_SETFORPROCESS 0x00000100
#define KLF_SHIFTLOCK 0x00010000
Function main()
IF MY_GETKEYBOARDLAYOUT()=68551702 // Verifica se esta com layout para Portugues
// EN - Ingles (Estados Unidos)
MY_LOADKEYBOARDLAYOUT( "00000409", KLF_ACTIVATE )
// RU - Russo (Russia)
//MY_LOADKEYBOARDLAYOUT( "00000419", KLF_ACTIVATE )
// BE - Bielo-Russo (Belarus)
//MY_LOADKEYBOARDLAYOUT( "00000423", KLF_ACTIVATE )
?"Teste"
ENDIF
return
#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>
HB_FUNC( MY_GETKEYBOARDLAYOUT )
{
hb_retnl( (LONG) GetKeyboardLayout( ( long ) hb_parc( 1 ) ) ) ;
}
HB_FUNC( MY_LOADKEYBOARDLAYOUT )
{
hb_retnl( (LONG) LoadKeyboardLayout( hb_parc(1), hb_parni(2) ) ) ;
}
#pragma ENDDUMP
Usuários vendo este fórum: Nenhum usuário registrado online e 15 visitantes