PC Toledo

Pessoal , boa tarde eu consigui travar o teclado para certificação do TEF , mas a tecla do windows continua funcionando, usei kbddisable(.T.), mas essa tecla funciona mesmo assim.

Se alguem puder me ajudar eu agradeço.

PS. Eu nesse exato momente fazendo a certificação e só falta isso .

Abs
Jarbas

No clipper direto não encontramos uma solução para travar o teclado totalmente. Usamos um aplicativo desenvolvido em Delphi que bloqueia tudo, exceto o Crtl-Alt-Del que os homologadores utilizam para parar o aplicativo. No material da Software-Express tem um exemplo disso. Se precisar de alguma dica, me comunique.

Estou terminando um programa em xHarbour que faz isso.
O problema é que não consigo executá-lo de dentro do meu .EXE.
Ele é uma aplicação 32 bits, mas quando o executo dá comando inválido.
Faço assim:
comanda := "TRAVA.EXE"
run (comanda)

Preciso conseguir executá-lo pois se alguém fechá-lo, meu programa comercial precisa reativá-lo....

Segue aqui o programinha.
Se alguém puder ajudar.

*************
Function Main
*************
Para W

/*
TravaTec(.t.)
MHide()
@ 24,1 say "Travado."
inkey(20)
@ 24,1
TravaTec(.f.)
MShow()
@ 24,1 say "destravado."
inkey()
quit*/


while .t.

if file("travatec.txt")
ferase("travatec.txt")
mHide()
TravaTec(.t.)
end

if file("ntravatc.txt")
ferase("ntravatc.txt")
mShow()
TravaTec(.f.)
end

if file("finaliza.txt")
ferase("finaliza.txt")
ferase("activa.txt")
quit
end

if !file("activa.txt")
fll := "1"
memowrit("activa.txt",fll)
end

inkey(0.5) // aguarda meio segundo
end

return nil


#pragma begindump
#include "windows.h"
#include "winable.h"
#include "hbapi.h"

HB_FUNC( TRAVATEC )
{
BlockInput( hb_parl(1) );
}
#pragma enddump

Prezado Mario

Tente :

comanda := "START TRAVA.EXE /shared"
run &comanda

ou

comanda := "TRAVA.EXE"
run &comanda

Até logo.

Marcelo