Parar o programa x segundos

[TerraSoftware]

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.

[sygecom]

Pode usar o:
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