home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / autorn12.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1998-01-26  |  1KB  |  42 lines
  1. /* Execute this program after you have copied all of the files */
  2. /* in a subdirectory of your choice.                           */
  3. /* This program will create an icon on the desktop and         */
  4. /* register the program for you. If you already have an icon   */
  5. /* for AUTORUN on the desktop, please delete the icon before   */
  6. /* calling this program.                                       */
  7.  
  8. call RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  9. call SysLoadFuncs
  10.  
  11.  
  12.  
  13. say "                         AUTORUN for OS/2"
  14. say ""
  15. say "The installation program will create an icon for AUTORUN 1.2"
  16. say "on the desktop"
  17. say "Continue?"
  18. say "(Y/N)"
  19.  
  20. PARSE PULL reply
  21. if reply = "N" | reply = "n" then exit
  22.  
  23. title="Autorun 1.2"
  24. classname='WPProgram'
  25. location='<WP_DESKTOP>'
  26. curdir=directory()'\autorun.exe'
  27. say 'Please enter the letter of your CDROM drive:'
  28. parse pull cdrom
  29.  
  30. result=SysCreateObject(classname,title,location,'PARAMETERS=-D:'cdrom' ;PROGTYPE=PM;EXENAME='curdir'')
  31.  
  32. if result then
  33.   say "Icon for AUTORUN 1.2 created..."
  34. else do
  35.   say "ERROR              : The objects have not been installed,due to an error."
  36.   say "POSSIBLE CAUSE     : The objects already exist on the desktop."
  37.   say "ACTION             : Remove the already existing objects and try again."
  38. end
  39.  
  40.  
  41.  
  42.