'use pbcc 'http://www.powerbasic.com/support/forums/Forum7/HTML/000967.html #INCLUDE "Win32api.inc" DECLARE FUNCTION MSGBOX(MsgBoxText AS STRING,lpStyle AS LONG,MsgBoxCaption AS STRING) AS LONG '------------------------------------------------------------------------------------ FUNCTION PBMAIN() AS LONG MSGBOX "Hi there!",%MB_ICONINFORMATION,"Hello World" END FUNCTION '------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------ FUNCTION MSGBOX(MsgBoxText AS STRING,lpStyle AS LONG,MsgBoxCaption AS STRING) AS LONG LOCAL lResult AS LONG LOCAL lpConsoleTitle AS ASCIIZ * 256 DIM lpMsgBoxParams AS MSGBOXPARAMS IF LEN(MsgBoxCaption) = 0 THEN GetConsoleTitle lpConsoleTitle, SIZEOF(lpConsoleTitle) MsgBoxCaption = lpConsoleTitle END IF lpMsgBoxParams.dwStyle = lpStyle lpMsgBoxParams.lpszText=STRPTR(MsgBoxText) lpMsgBoxParams.lpszCaption=STRPTR(MsgBoxCaption) lResult = MessageBoxIndirect(lpMsgBoxParams) FUNCTION = lResult END FUNCTION