To Antonio:

[HunterEC]

Antonio:

My friend, you provided me this piece of code (that works GREAT) as a way to set the console window title:

Code: Select all  Expand view

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HB_FUNC( SETCONSOLETITLE )
{
   hb_retl( SetConsoleTitle( ( char * ) hb_parc( 1 ) ) );
}

#pragma ENDDUMP
 

Is there a way to get the current caption / title ?

Thank you very much !!!!

[cnavarro]

Look function GetConsoleTitle, please test

Code: Select all  Expand view

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HB_FUNC( SETCONSOLETITLE )
{
   hb_retc( GetConsoleTitle( ( char * ) hb_parc( 1 ), 50 ) );
}
#pragma ENDDUMP
 
 

[HunterEC]

Cristobal:

Gracias por la idea, pero da este mensaje:

Code: Select all  Expand view

Error E2342 .\\ROUTINES.PRG 109: Type mismatch in parameter 'szText' (wanted 'co
nst signed char *', got 'unsigned long') in function HB_FUN_GETCONSOLETITLE
*** 1 errors in Compile ***

Gracias mi amigo.

[Antonio Linares]

Gustavo,

Prueba asi:

Code: Select all  Expand view

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HB_FUNC( GETCONSOLETITLE )
{
   char buffer[ 100 ];
   DWORD dwSize;

   dwSize = GetConsoleTitle( buffer, 100 );
   hb_reclen( buffer, dwSize );
}
#pragma ENDDUMP

[HunterEC]

Antonio:

Thank you for your prompt response. Using Harbour Harbour320_160105_0904 and Borland BCC7 I'm getting the following linker error:

Code: Select all  Expand view

Turbo Incremental Link 6.70 Copyright (c) 1997-2014 Embarcadero Technologies, Inc.
Error: Unresolved external '_hb_reclen' referenced from C:\APPS\TEST\OBJ\PROG02.OBJ
Error: Unable to perform link

[Antonio Linares]

Gustavo,

Modifica esta línea asi:

hb_retclen( buffer, dwSize );