home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vxdemo.zip / MOVIES.$$$ / MMINIT.VRX < prev    next >
Text File  |  1993-06-18  |  953b  |  42 lines
  1. /*:VRX         Main
  2. */
  3. /*
  4.     Syntax:  
  5.         rc = MMInit( <window> )
  6.  
  7.     Returns:
  8.         1       OK  
  9.         0       Error      
  10. */
  11. main:
  12.     signal on novalue    
  13.  
  14.     window = arg( 1 )
  15.     
  16.     MMInitRC = 0
  17.     rc = RXFUNCQUERY( 'mciRxInit' )
  18.     if rc \= 0 then do
  19.         rc = RXFUNCADD('mciRxInit','MCIAPI','mciRxInit')
  20.         if rc \= 0 then do
  21.             call ErrMsg window, "Unable to add the multimedia functions."
  22.             signal leave_init
  23.         end
  24.         rc = mciRxInit()
  25.         if rc \= 0 then do
  26.             call ErrMsg window, "Unable to initialize the multimedia functions."
  27.             signal leave_init
  28.         end 
  29.     end
  30. /*
  31.     else do
  32.         call VRMessage window, "Multimedia functions already loaded.",,
  33.                                    "Note", "Information"
  34.     end
  35. */
  36.     MMInitRC = 1
  37.  
  38. leave_init:
  39.     call VRMethod "Application", "PutVar", "MMInitRC"
  40.  
  41. exit MMInitRC
  42.