home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / cdcr206a.zip / SETICON.CMD < prev    next >
OS/2 REXX Batch file  |  1995-10-29  |  1KB  |  51 lines
  1. /* CD Carousel Desktop setup program */
  2.  
  3. '@Echo Off'
  4. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  5. Call SysLoadFuncs
  6. Signal On Failure Name FAILURE
  7. Signal On Halt Name HALT
  8. Signal On Syntax Name SYNTAX
  9.  
  10. Call SysCls
  11. Say 'This program will create an Icon on your Desktop for CD Carousel...'
  12. Say ''
  13.  
  14.  
  15. Say 'Please enter the full drive and pathname of the directory where'
  16. Say '  CD Carousel is installed: '
  17. Pull Directory
  18. If Directory = "" Then call done
  19.  
  20. Say 'Creating program object...'
  21. Title = 'CD Carousel v2.06a^UNREGISTERED'
  22. Type = 'WPProgram'
  23. Folder = '<WP_DESKTOP>'
  24. Parms = "MINWIN=DESKTOP;PROGTYPE=PM;EXENAME="Directory"\CDMENU.CMD;STARTUPDIR="Directory";OBJECTID="Directory"\CDCAR;NOPRINT=YES;"
  25. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  26.  
  27. If Result = 1 Then do
  28.   Say 'Object created!  Done.'
  29.   say 'Now open the folder'"'"'s settings and under the Optional Parameters enter'
  30.   say 'the default task number (ex. 01).'
  31.   end
  32. If Result <> 1 Then Say 'ERROR: Object not created.'
  33.  
  34. Signal DONE
  35.  
  36. FAILURE:
  37. Say 'REXX failure.'
  38. Signal DONE
  39.  
  40. HALT:
  41. Say 'REXX halt.'
  42. Signal DONE
  43.  
  44. SYNTAX:
  45. Say 'REXX syntax error.'
  46. Signal DONE
  47.  
  48. DONE:
  49. Exit
  50. 
  51.