home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / clear11e.zip / inst_clr.cmd < prev    next >
OS/2 REXX Batch file  |  1995-10-25  |  2KB  |  66 lines
  1. /*Rexx program: Creating WPS objects for CLEAR*/
  2.  
  3. say "Creating WPS objects for CLEAR"
  4. say "Use this installation program if you want to use CLEAR"
  5. say "together with Info-Zip."
  6. say ""
  7. say "Four necessary files should be listed now."
  8. "@dir clr_rexx.cmd /f"
  9. "@dir OneDrvZp.cmd /f"
  10. "@dir clear.exe /f"
  11. "@dir clear.inf /f"
  12. say "Are they located correct? (Y/N)"
  13. pull YesNo
  14. if \ ((YesNo = "Y") | (YesNo = "y")) then do
  15.   say "Make the directory current where the CLEAR files are located"
  16.   say "before running this installation program"
  17.   "@pause"
  18.   exit
  19. end
  20.  
  21. Call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
  22. Call SysLoadFuncs
  23. CurrentDir = directory()
  24.  
  25. say "Enter a name for your individual CLR-textfile, used by CLEAR"
  26. say "for example: MY.CLR"
  27. pull ClrFile
  28. if ClrFile = "" then do
  29.   say "You have to enter a name for your CLR-textfile."
  30.   "@pause"
  31.   exit
  32. end
  33. say "Enter the drive letters for backup and clean up"
  34. say "Pure Operating system- or Software-partitions can't be recommended."
  35. say "Enter drive letters with spaces between, for example"
  36. say "C D E"
  37. pull DrvLetter
  38. if (DrvLetter = "") | (DrvLetter = " ") then do
  39.   say "You have to enter drive letters."
  40.   exit
  41. end 
  42.  
  43. say "Creating objects..."
  44. /*program object Clear*/
  45. Call SysCreateObject "WPProgram", "Clear", "<WP_DESKTOP>",,
  46.     "OBJECTID=<MVClear>;EXENAME="CurrentDir"\clr_rexx.cmd;STARTUPDIR="CurrentDir"\ClearDat;PROGTYPE=OS2WINDOW;PARAMETERS=% "ClrFile" [from e.g: 5/31/95] "DrvLetter";ICONFILE="CurrentDir"\Broom.ico;"
  47.  
  48. /*Creating folder ClearDat with shadow on the desktop*/
  49. Call SysCreateObject "WPFolder", "ClearDat", CurrentDir,,
  50.     "OBJECTID=<MVClearDat>;ICONFILE="CurrentDir"\Broom1.ico;ICONNFILE=1,"CurrentDir"\Broom2.ico;"
  51. Call SysCreateObject "WPShadow", "ClearDat", "<WP_DESKTOP>",,
  52.     "SHADOWID=<MVClearDat>;"
  53.  
  54. /*program object INF Viewer*/
  55. Call SysCreateObject "WPProgram", "Clear Info", "<WP_DESKTOP>",,
  56.     "OBJECTID=<MVClearInfo"LwZahl">;EXENAME=VIEW.EXE;PARAMETERS=% "CurrentDir"\Clear.INF;ICONFILE="CurrentDir"\BroomInf.ico;"
  57.  
  58.  
  59. "@type SAMPLE.CLR >ClearDat\"ClrFile
  60. say ""
  61. say "installation finished. Make sure that the Info-Zip programs ZIP.EXE,"
  62. say "UNZIP.EXE and ZIPSPLIT.EXE are located in a directory of your"
  63. say "path statement."
  64.  
  65. "@pause"
  66.