home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / utils / scrnsave / ssaver11 / install.cmd < prev    next >
Encoding:
Text File  |  1993-12-14  |  1.1 KB  |  36 lines
  1. /*    install.cmd - REXX script for ScreenSaver installation
  2.     (C) 1993 Siegfried Hanisch
  3. */
  4.  
  5. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  6. call SysLoadFuncs
  7.  
  8. say "ScreenSaver 1.1 installation."
  9.  
  10. rc = SysFileTree("SSaver.EXE", fspec, "FO")
  11. if rc=0 then
  12. do
  13.     filename=filespec("Name", fspec.1)
  14.     filepath=filespec("Path", fspec.1)
  15.     filedrive=filespec("Drive", fspec.1)
  16.     if SysCreateObject("WPProgram", "ScreenSaver",,
  17.       "<WP_DESKTOP>", "EXENAME="filedrive||filepath||filename,
  18.       ";STARTUPDIR="||filedrive||filepath, "replace") then
  19.     do
  20.         say "ScreenSaver program object created."
  21.         say "If you want ScreenSaver to be automatically started at boot"
  22.         say "time, move the program object to the startup folder."
  23.         say "-----"
  24.         say "Make sure the emx-DLLs are somewhere in your LIBPATH"
  25.         say "-----"
  26.         say "Please read the online help topic on 'low priority' if"
  27.         say "saver animation is not smooth enough."
  28.     end
  29.     else
  30.         say "ERROR: program object could not be created."
  31. end
  32. else
  33.     say "ERROR: ScreenSaver program file SSaver.EXE not found."
  34.     exit
  35. end
  36.