Click above to get retro games delivered to your door ever month!

// This sample shows how to make a Dynamic Linking at RunTime!
// Using Borland BWCC.DLL DLLs

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   BWCCMessageBox( 0, OemToAnsi( "Using Borland's BWCC DLL" ),;
                   OemToAnsi(  "Hello World!" ), 0 )

   BWCCMessageBox( 0, OemToAnsi( "(C) F. Pulp.n y A. Linares, 1993-4" ),;
                   "FiveWin 1.5", 2 )

   SndPlaySound( "Ahhhhh.wav", 0 )

return nil

//----------------------------------------------------------------------------//

DLL FUNCTION BWCCMessageBox( hWnd AS WORD, cText AS LPSTR, cTitle AS LPSTR,;
                             nType AS WORD ) AS WORD PASCAL LIB "BWCC.DLL"

DLL FUNCTION SndPlaySound( cFile AS LPSTR, nType AS WORD ) AS BOOL ;
                             PASCAL LIB "MMSYSTEM.DLL"

//----------------------------------------------------------------------------//