home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Multimed / Multimed.zip / mikmod2k.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1999-11-07  |  910b  |  26 lines
  1. /* MikModPM ICON Creation REXX program     *
  2.  *    Version 0.6  By Kevin Langman      */
  3.  
  4. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. call SysLoadFuncs
  6.  
  7. if length(stream(directory() || '\MikModPM.exe', 'c', 'query exists' )) = 0 then do
  8.    Say ''
  9.    Say 'Change the currect directory to the directory where AudioCenter'
  10.    Say 'is installed before running this program.'
  11.    Say
  12.    Say
  13.    '@pause'
  14. end; else do
  15.    setup = "EXENAME=" || directory() ||"\MikModPM.EXE"
  16.    setup = setup || ";STARTUPDIR=" || directory()
  17.    setup = setup || ";ASSOCFILTER=*.MOD,*.STM,*.669,*.MTM,*.AMF,*.FAR,*.S3M,*.ULT,*.XM,*.IT,*.DSM,*.GDM,*.IMF,*.MED,*.STX,*.UNI"
  18.    If SysCreateObject("WPProgram", "MikModPM V0.97", "<WP_DESKTOP>",setup) then do
  19.       Say 'The MikModPM object has been create'
  20.       Say
  21.    end; else
  22.       Say 'Error creating the AudioCenter object!'
  23. end            
  24.   
  25. exit
  26.