home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac_os2 / scsvr101.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1994-11-26  |  965b  |  32 lines
  1. /* REXX */
  2. /* Install Process for Screen Saver */
  3.  
  4. /* Figure out where we are installing from */
  5.  
  6. parse source . . pgmfile
  7. pgmpath = FILESPEC("drive", pgmfile)||FILESPEC("path", pgmfile)
  8.  
  9. say 'Installing Screen Saver...'
  10. /*'md c:\ss'*/
  11. /*'copy 'pgmpath'*.* c:\ss'*/
  12.  
  13. /* Create the screen saver icon on the desktop */
  14.  
  15. call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  16.  
  17. if SysCreateObject("WPProgram", "Screen Saver", "<WP_DESKTOP>","OBJECTID=<SCRNSVR>;EXENAME="pgmpath"SCRNSVR.EXE;ICONFILE="pgmpath"SCRNSVR.ICO", "Update") then
  18.     say 'Screen Saver Icon successfully Created'
  19. else
  20.     say 'Screen Saver Icon Creation Failed'
  21.  
  22. /* check for registration and prompt if not registered */
  23.  
  24. call RxFuncAdd 'SysIni', 'RexxUtil', 'SysIni'
  25. key = SysIni('USER', 'Screen Saver', 'Registration')
  26. if key='ERROR:' then do
  27.     say 'Do you want to register this copy now? Y/N (N)'
  28.     pull answer
  29.     if answer = 'Y' then
  30.         pgmpath'register'
  31.     end        
  32.