Parar o programa x segundos
Enviado: 22 Jun 2009 09:12
Caros colegas, como faço pra um programa em xharbour parar por determinados seguntos sem o uso da função inkey(x)? e de preferencia, sensivel ao teclado.
Millisec(1000)
Nesse exemplo abaixo ele trava o teclado e mouse espera dois segundos e libera em seguida:
Código: Selecionar todos
FUNC MAIN
CLS
@ 10,10 SAY "TRAVANDO TECLADO..."
TRAVATEC(.T.) // TRAVOU TECLADO
Millisec(2000) // ESPERANDO DOIS SEGUNDOS
@ 11,10 SAY "DESTRAVANDO TECLADO..."
TRAVATEC(.T.) // DESTRAVOU TECLADO
Return
#pragma begindump
#include "windows.h"
#if defined( __XCC__ ) || defined( __BORLANDC__ )
#include "winable.h" // tem que achar um compativel para poder compilar com MSVC
#endif
#include "hbapi.h"
HB_FUNC( TRAVATEC )
{
BlockInput( hb_parl(1) );
}
#pragma enddump