PC Toledo

Código: Selecionar todos

*************
Function Main
*************

ferase("travatec.txt")
ferase("ntravatc.txt")
ferase("finaliza.txt")
ferase("activa.txt")

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
// Fim do programa


// Início da função no seu programa dos+blinker
Function kbddesliga(_on_off)

fllkbd := "1"

@ 24,1
if _on_off == "T"
 if tef_produz == "S"
  memowrit("travatec.tmp",fllkbd)
  rename travatec.tmp to travatec.txt
 end
elseif _on_off == "F"
 if tef_produz == "S"
  memowrit("ntravatc.tmp",fllkbd)
  rename ntravatc.tmp to ntravatc.txt
 end
elseif _on_off == "X"
 memowrit("finaliza.tmp",fllkbd)
 rename finaliza.tmp to finaliza.txt
end
aguarda(1.5)
@ 24,1
return nil
// Final da função kbddesliga

//para chamar a função:
kbddesliga("T") para travar
kbddesliga("F") para destravar

//inicio da função aguarda
// -------->
Function aguarda(_temp)
_in := seconds()
while seconds() - _in < _temp
 var := inkey()
 if lastkey() > 0 .and. upper(chr(var)) == "Q"
  exit
 end
end
return nil

Código: Selecionar todos

// Início da função no seu programa dos+blinker 
Function kbddesliga(_on_off) 

fllkbd := "1" 

@ 24,1 
if _on_off == "T" 
 memowrit("travatec.tmp",fllkbd) 
 rename travatec.tmp to travatec.txt 
elseif _on_off == "F" 
 memowrit("ntravatc.tmp",fllkbd) 
 rename ntravatc.tmp to ntravatc.txt 
elseif _on_off == "X" 
 memowrit("finaliza.tmp",fllkbd) 
 rename finaliza.tmp to finaliza.txt 
end 
aguarda(1.5) 
@ 24,1 
return nil 
// Final da função kbddesliga