Olá,
Estou precisando com urgencia maxima travar o teclado para homologar o tef, e já li tudo neste forum sobre como travar o teclado e o blockinput funcionaria para mim, mas nao consigo faze-lo funcionar, estou declarando assim:
DLL32 FUNCTION blockinput( lbloq AS LONG ) AS LONG PASCAL;
from "blockinput" LIB "USER32.DLL"
JA TIREI O from "blockinput"
e nunca trava o teclado, notei que o retorno da funcao esta sendo
var := blockinput(.T.)
o conteudo de var retorna:
"please, wait...."
Narlem
Nao Consigo fazer funcionar "blockinput" da dll u
Moderador: Moderadores
- sygecom
- Administrador

- Mensagens: 7131
- Registrado em: 21 Jul 2006 10:12
- Localização: Alvorada-RS
- Contato:
Trava Teclado em C
Como usar:
Compile o codigo abaixo com sua app.
Código: Selecionar todos
TRAVATEC(.T.) // TRAVA O TECLADO
TRAVATEC(.F.) // LIBERA O TECLADO
Código: Selecionar todos
#pragma begindump
#include "windows.h"
#include "winable.h"
#include "hbapi.h"
HB_FUNC( TRAVATEC )
{
BlockInput( hb_parl(1) );
}
#pragma enddump
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
xHarbour.org + Hwgui + PostgreSql
Ola,
Quando eu adiciono este codigo ao meu programa principal, esta dando o seguinte erro na compilacao:
Fatal C3010 Invalid Name follows #
esta dando na primeira linha
#pragma begindump
me parece que esta rotina é do xharbour, eu utilizo o xharbour, mas somente no linux, e uso o clipper no dos, tambem, nao tenho os arquivos
windows.h, winable.h, hbapi.h
o que seria este comando "#pragma begindump
Narlem
Quando eu adiciono este codigo ao meu programa principal, esta dando o seguinte erro na compilacao:
Fatal C3010 Invalid Name follows #
esta dando na primeira linha
#pragma begindump
me parece que esta rotina é do xharbour, eu utilizo o xharbour, mas somente no linux, e uso o clipper no dos, tambem, nao tenho os arquivos
windows.h, winable.h, hbapi.h
o que seria este comando "#pragma begindump
Narlem
- sygecom
- Administrador

- Mensagens: 7131
- Registrado em: 21 Jul 2006 10:12
- Localização: Alvorada-RS
- Contato:
Não entendi bem o que vc quiz dizer?narlem escreveu:Ola,
Quando eu adiciono este codigo ao meu programa principal, esta dando o seguinte erro na compilacao:
Fatal C3010 Invalid Name follows #
esta dando na primeira linha
#pragma begindump
me parece que esta rotina é do xharbour, eu utilizo o xharbour, mas somente no linux, e uso o clipper no dos, tambem, nao tenho os arquivos
windows.h, winable.h, hbapi.h
o que seria este comando "#pragma begindump
Narlem
Puxa, desculpa nem lhe perguntei ....vc esta usando CLIPPER ou xHarbour ?
Se for xharbour pode usar a função que postei.
#pragma begindump a grosso modo falando, serve para marca para o xharbour compilar a partir dali uma função em "C" e #pragma enddump marca o final da rotina em "C"
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
xHarbour.org + Hwgui + PostgreSql
