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

   
Vista:

Titulo en ventana MS-Dos, mi aporte al foro

Publicado por Heztevan (28 intervenciones) el 24/03/2009 18:31:06
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder