PC Toledo

Código: Selecionar todos

Olha pessoal! 
Eu consegui fazer o programinha tá ok ? 
Fiz em xHarbour e, caso sua aplicação seja clipper + blinker e vc, como eu, ainda não teve tempo de migrar tudo pode comandar direto de sua aplicação. 
Você grava um arquivo TRAVATEC.TXT e ele trava 
Depois vc grava um NTRAVATC.TXT e ele destrava. 
Grava um FINALIZA.TXT e ele finaliza. (se fecha) 
Ele grava, a cada 0.5 segundos um ACTIVA.TXT para mostrar que está ativo. Neste caso, toda vez que você for utilizá-lo, você deleta o ACTIVA.TXT, espera 1 segundos e pergunta se existe o ACTIVA.TXT, se existe é porque ele está ativo. se não existe é porque alguem (os homologadores, provavelmente) pararam o programinha com CTRL+ALT+DEL e neste caso, vc executa novamente a aplicação. 
Chama-se TRAVA.EXE. 
Se alguem interessar me avise aqui. 
Abraços 
Mário 

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

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 enddumpMario Isa

Código: Selecionar todos

***********************************************************
***********************************************************
****                                                   ****
****         PROGRAMA PRA BLOQUEAR O TECLADO           ****
****         TRAVAR    ->  TravaTec(.t.)               ****
****         DESTRAVAR ->  TravaTec(.f.)               ****
****                                                   ****
***********************************************************
***********************************************************

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

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