home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / tos_pm10.zip / aeg_inst.cmd next >
OS/2 REXX Batch file  |  1995-11-23  |  1KB  |  29 lines

  1. /************************************/
  2. /*                                  */
  3. /*      Snake-Byte Incorporated     */
  4. /*        Copyright (c) 1995        */
  5. /*                                  */
  6. /*         Automated EpGuide        */
  7. /*        Installation Script       */
  8. /*                                  */
  9. /*                                  */
  10. /************************************/
  11.  
  12. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  13. call SysLoadFuncs
  14.  
  15.   say "Creating an A.E.G. desktop object...Please Wait..."
  16.   rc = SysFileTree("tos_pm10.exe", fspec, "FO")
  17.   if rc=0 then
  18.   do
  19.        filename=filespec("Name", fspec.1)
  20.        filepath=filespec("Path", fspec.1)
  21.        filedrive=filespec("Drive", fspec.1)
  22.            if SysCreateObject("WPProgram", "Star Trek: TOS PM A.E.G.",,
  23.           "<WP_DESKTOP>", "EXENAME="filedrive||filepath||filename,
  24.           ";STARTUPDIR="||filedrive||filepath, "replace") then
  25.      say "A.E.G. Desktop object was successfully created."
  26.      exit
  27.   end
  28.  
  29.