Adding MsgInfo() Functionality to a Harbour app

CCH : Assuming that you want a simple Alert() replacement and do not want to add harbour-compatible libs such as gtWVG, HMG or Minigui, you may want to check out this piece of code by Vailton Renato posted recently on the harbour-users Google group.

/*
* An MsgInfo() implementation using hbwin library.
* 06/03/2011 - 21:56:45
*
* COMPILE: hbmk2 msginfo1.prg -run -lhbwin
*/
#include "hbwin.ch"

FUNCTION MAIN()
? MsgInfo( "This is a single test" )
RETURN nil

FUNCTION MSGINFO( cText, cTitle )
RETURN WAPI_MESSAGEBOX( 0, cText, cTitle, WIN_MB_ICONQUESTION )

Regards,
Vailton Renato