home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR10 / 0141TER2.ZIP / 0141TER2._XE / OS2.EXE / INSTALL.CMD next >
OS/2 REXX Batch file  |  1993-12-13  |  3KB  |  75 lines
  1. /*
  2. @Goto NoRexx
  3. */
  4. /* Init */
  5. '@Ansi On'
  6. Say ""
  7. Say "╒═════════════════════════════════════════════════════════════════════════════╕"
  8. Say "│       REXX-Script to create Terminate-Folder, made by Martin Lorensen       │"
  9. Say "╘═════════════════════════════════════════════════════════════════════════════╛"
  10. Say ""
  11. Say
  12. Say "Creating folder on WPS for Terminate. Please wait..."
  13.  
  14. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  15. Call SysLoadFuncs
  16.  
  17. TerDir=Directory()
  18. TerDir=SubStr(TerDir,1,LastPos('\',TerDir))
  19. Say "Terminate should be installed in "TerDir". If it isn't, this script would not work."
  20. ObjMode="Replace"
  21. rc=0
  22.  
  23. /* The Folder */
  24. Class = "WPFolder"
  25. Location = "<WP_DESKTOP>"
  26. Title = "Terminate"
  27. SetupString = "OBJECTID=<TER>;ICONFILE="TerDir"OS2\T-OS2.ICO;BACKGROUND="TerDir"OS2\T-OS2.BMP;"
  28. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  29.  
  30. /* The Programs in the folder */
  31. ObjMode="UpDate"
  32. Class = "WPProgram"
  33. Location = "<TER>"
  34.  
  35. Title = "Terminate"
  36. SetupString ="OBJECTID=<TEREXE>;ICONFILE="TerDir"OS2\T-OS2.ICO;PROGTYPE=VDM;EXENAME="TerDir"TERMINAT.EXE;STARTUPDIR="TerDir";"
  37. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  38.  
  39. Title = "TerMail"
  40. SetupString = "OBJECTID=<TMAIL>;ICONFILE="TerDir"OS2\TM-OS2.ICO;PROGTYPE=VDM;EXENAME="TerDir"TMAIL\TMAIL.EXE;STARTUPDIR="TerDir"TMAIL;"
  41. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  42.  
  43. Title = "Why register?"
  44. SetupString = "OBJECTID=<TERREGDOC>;ICONFILE="TerDir"OS2\T-DOC.ICO;EXENAME=E.EXE;PARAMETERS="TerDir"DOCS\YouGet.DOC;"
  45. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  46.  
  47. Title = "Terminate & OS/2"
  48. SetupString = "OBJECTID=<TEROS2DOC>;ICONFILE="TerDir"OS2\T-DOC.ICO;EXENAME=E.EXE;PARAMETERS="TerDir"OS2\OS2.DOC;"
  49. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  50.  
  51. /* Open folder */
  52. Class = "WPFolder"
  53. Location = "<WP_DESKTOP>"
  54. Title = "Terminate"
  55. SetupString = "OBJECTID=<TER>;OPEN=Default;"
  56. rc = rc + (SysCreateObject(Class,Title,Location,SetupString,ObjMode)<>1)
  57.  
  58. Say
  59. Say "Terminate folder created. "RC" problem(s) detected."
  60. Exit;
  61.  
  62. /* Users without REXX-support!
  63.  
  64. :NoRexx
  65. @Echo Off
  66. Ansi On'
  67. Echo 
  68. Echo ╒═════════════════════════════════════════════════════════════════════════════╕
  69. Echo │       REXX-Script to create Terminate-Folder, made by Martin Lorensen       │
  70. Echo ╘═════════════════════════════════════════════════════════════════════════════╛
  71. Echo 
  72. Echo FATAL ERROR: No REXX-suport is installed.
  73. Echo Please install REXX and then try again.
  74. REM */
  75.