home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / gtirc301.zip / MAKEICON.CMD < prev    next >
OS/2 REXX Batch file  |  1997-11-24  |  2KB  |  41 lines
  1. /*********************************************************************/
  2. /* 11/24/97  Create GammaTech IRC Program Object on Desktop          */
  3. /*                                                                   */
  4. /* Copyright (C) GammaTech Inc. 1995-1997       All Rights Reserved. */
  5. /*********************************************************************/
  6.  
  7. Trace 'O'
  8. Address CMD
  9. '@ECHO OFF'
  10.  
  11. /*********************************************************************/
  12. /* Initialization                                                    */
  13. /*********************************************************************/
  14. Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  15. Call sysloadfuncs
  16.  
  17. /*********************************************************************/
  18. /* Get the installation drive and path                               */
  19. /*********************************************************************/
  20. Say "Please enter the drive and path of the IRC directory."
  21. Say "Example C:\GTIRC"
  22. Parse Upper Pull instpath
  23.  
  24. rc = SysFileTree(instpath||'\gtirc.*', 'find', 'F')
  25. If find.0 <> 0 then do
  26.    Call SysCreateObject 'WPFolder','GtIrc Demo','<WP_DESKTOP>','OBJECTID=<GT_DEMO>','R'
  27.    Call SysCreateObject 'WPProgram','GtIrc','<GT_DEMO>','OBJECTID=<GT_GTIRC>;EXENAME='instpath'\gtirc.exe;PROGTYPE=PM;STARTUPDIR='instpath,'R'
  28.    Call SysCreateObject 'WPProgram','GtIrc Docs','<GT_DEMO>','OBJECTID=<GT_GTDOC>;EXENAME=view.exe;PROGTYPE=PM;PARAMETERS='instpath'\gtirc.inf','R'
  29. End
  30.  
  31. Else do
  32.    Say "The Drive:\Path is incorrect."
  33. End
  34.  
  35. /*********************************************************************/
  36. /* Exit Program                                                      */
  37. /*********************************************************************/
  38. Endit:
  39. Exit 0
  40.  
  41.