you can use
debug function for bypass the focus in controls.
dbwin32.exe or dbgview.exe
Code: Select all
function main()
?KDSDebug( version() )
return
FUNCTION KDSDebug( xVal, lReturn )
DEFAULT lReturn := FALSE
OutPutDebugStringC( CStr( xVal ) + IIf( lReturn, FINL, "" ) )
RETURN NIL
#pragma BEGINDUMP
/*definición de constante necesaria para compilador XCC de xharbour.com*/
#ifndef __BORLANDC__
#define WINVER 5
#endif
#ifdef __XCC__
#endif
/*llamada a encabezados de api de xharbour y windows SDK*/
#include "hbapi.h"
#include "windows.h"
/*funcion wrapper de api para mostrar un valor en un depurador*/
HB_FUNC( OUTPUTDEBUGSTRINGC )
{
PHB_ITEM szMsg = hb_param(1, HB_IT_STRING );
if( szMsg != NULL )
{
OutputDebugStringA( hb_itemGetC( szMsg ) );
OutputDebugStringA( "\n" );
}
hb_retc( "" );
}
#pragma ENDDUMP