Clipper/FiveWin - Titulo en ventana MS-Dos, mi aporte al foro

Hola a todos!!
Si a alguien le gustaria personalizar la ventana MS-Dos de su aplicacion (x)Harbour, navegando por la red me encontré este codigo que comparto con el foro, a mi me ha funcionado perfectamente.

--corte aqui--
#PRAGMA BEGINDUMP

#include "hbapi.h"
#include "Windows.h"

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

HB_FUNC( FINDWINDOW )
{
hb_retnl( ( LONG ) FindWindow( NULL, hb_parc( 1 ) ) ) ;
}

#PRAGMA ENDDUMP
--hasta aqui--

funciona asi: pegas el codigo tal cual dentro de un Prg de tu aplicacion, al inicio del MAIN() mandas llamar la funcion ej.-

Function Main
set color to
set date british
SetConsoleTitle("mi aplicacion mia de mi") // <--- Aqui el llamado
....
...
..
Return NIL

y listo, en la barra de titulo aparecerá el texto que uses como parametro, en lugar del nombre del ejecutable.

Espero les sea de utilidad.

Saludos a todos.