Nao Consigo fazer funcionar "blockinput" da dll u

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

narlem
Usuário Nível 1
Usuário Nível 1
Mensagens: 35
Registrado em: 24 Set 2004 14:34

Nao Consigo fazer funcionar "blockinput" da dll u

Mensagem por narlem »

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
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Trava Teclado em C

Mensagem por sygecom »

Como usar:

Código: Selecionar todos

TRAVATEC(.T.)  // TRAVA O TECLADO
TRAVATEC(.F.)  // LIBERA O TECLADO
Compile o codigo abaixo com sua app.

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
narlem
Usuário Nível 1
Usuário Nível 1
Mensagens: 35
Registrado em: 24 Set 2004 14:34

Mensagem por narlem »

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
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem por sygecom »

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
Não entendi bem o que vc quiz dizer?

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
Responder