home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Multimed / Multimed.zip / fftpm100.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-08-24  |  711b  |  24 lines
  1. /* install.cmd - installer for FFTPM */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. programName = stream('FFTPM.EXE', 'command', 'query exists')
  7. if programName = '' then
  8. do
  9.    say 'Error: Cannot find FFTPM.EXE in the current directory.'
  10.    exit
  11. end
  12.  
  13. if stream('FFTPM.HLP', 'command', 'query exists') = '' then
  14. do
  15.    say 'Error: Cannot find FFTPM.HLP in the current directory.'
  16.    exit
  17. end
  18.  
  19. if SysCreateObject('WPProgram', 'FFTPM', '<WP_DESKTOP>', 'EXENAME='programName';STARTUPDIR='directory()';PROGTYPE=PM;CCVIEW=YES;OBJECTID=<FFTPM>', 'u') = 0 then
  20.    say 'Error: Cannot create object.'
  21. else
  22.    say 'The program object was successfully created.'
  23.  
  24. exit