home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / sstart10.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1994-04-20  |  1KB  |  46 lines
  1. /* Load REXXUTIL */
  2. '@echo off'
  3. call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  4. call sysloadfuncs
  5. Say '  Please type the full pathname where you want Session Starter installed,'
  6. Say '  including the drive.';say '';say '        Example: d:\sstart'
  7.  
  8. pull pathname
  9.  
  10. if pathname='' then do
  11. say "You didn't specify a path."
  12. exit
  13. end
  14.  
  15. call SysFileTree ''pathname'', 'file', 'd'
  16. if file.0=0 then do
  17. say '';say '  The specified path does not exist. Please create it '
  18. say '  and copy (or unzip) the Session Starter files to it. Then run the'
  19. say '  installation program.'
  20. exit
  21. end
  22.  
  23. Say '  Now creating Desktop object...'
  24.  
  25. classname='WPProgram'
  26. title='Session Starter'
  27. location='<WP_DESKTOP>'
  28. setup='MINIMIZED=YES;PROGTYPE=PM;EXENAME='pathname'\session.exe;OBJECTID=<WP_DESKTOP_sstart>;ICONFILE='pathname'\session.ICO;STARTUPDIR='pathname';'
  29.  
  30. BldObj:
  31.  
  32. result = SysCreateObject(classname, title, location, setup)
  33.  
  34. If result=1 Then do
  35. call SysCls
  36. say '';say '  Object created!'
  37. Exit
  38. end
  39.  
  40. Else do
  41. SysCls
  42. say '';say '  Not created! Return code='result
  43. exit
  44. end
  45. 
  46.