APP-COMM-Capitel/capitel/source.os2/LOADMCI.C

51 lines
856 B
C

#define INCL_DOSMODULEMGR
#define INCL_DOSERRORS
#include <os2.h>
#include <stdio.h>
#define DLLNAME "MCIAPI"
typedef ULONG (* EXPENTRY tPlayWavFile) ( HWND, PSZ, ULONG, PSZ, HWND );
tPlayWavFile mciPlayFile;
HMODULE MMOS2Handle = NULLHANDLE;
char mmpmInstalled=0;
short LoadMMPM( void )
{
UCHAR LoadError[128] = "";
APIRET rc = NO_ERROR;
rc = DosLoadModule( LoadError, sizeof(LoadError), DLLNAME, &MMOS2Handle );
if( rc != NO_ERROR)
return 0;
rc = DosQueryProcAddr( MMOS2Handle, 0L, (PSZ)"mciPlayFile",
(PFN *) &mciPlayFile );
if( rc )
{
DosFreeModule( MMOS2Handle );
return 0;
}
mmpmInstalled = 1;
return 1;
}
short UnLoadMMPM( void )
{
if( !mmpmInstalled )
return 0;
mmpmInstalled = 0;
DosFreeModule( MMOS2Handle );
MMOS2Handle = NULLHANDLE;
return 1;
}