home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Security / Security.zip / cryptor.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-09-28  |  1KB  |  61 lines
  1. /*....... */
  2. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. Call SysLoadFuncs
  4. DO
  5. SAY  "Strarting setup ..."
  6. SAY  "**********************************************"
  7. SAY  "Enter name of directory you want program to be installed"
  8. SAY  "Example C:\name"
  9. SAY  "**********************************************"
  10. PULL Dirname
  11.       IF Dirname = " "
  12.       THEN DO
  13.               SAY "Can not make this directory"
  14.               SAY "Press any key"
  15.               PULL Key
  16.               EXIT
  17.             END
  18.       ELSE
  19.              DO
  20.                 ECHO OFF
  21.                 MD Dirname
  22. Dr = LEFT(Dirname,1)
  23. Dr2= INSERT(':\os2\dll',Dr,1)
  24. Dr3 = INSERT(':\desktop\cryptor1',Dr,1)
  25. END
  26. SAY "Installing nesessary DLL Files ..."
  27. DO
  28. PKUNZIP " dll.ZIP "Dr2" "
  29. SAY "Installing programm files ..."
  30. PKUNZIP " PROG.ZIP " Dirname
  31. END
  32.  
  33. if SysCreateObject("WPFolder", "CRYPTOR1", "<WP_DESKTOP>",,
  34.                     "OBJECTID=<CRYPTOR1>")
  35. THEN DO
  36.        SAY "Creating desktop object ..."
  37.        if SysCreateObject("WPProgram", "Cryptor", "<CRYPTOR1>" ,,
  38.                                "EXENAME="Dirname"\S2.EXE")
  39.            then     DO
  40.                        ECHO OFF
  41.                        COPY " "Dirname"\readme "Dr3" "    
  42.                        Say "Object has been created"
  43.                     END
  44.            else  Say "Cannot create object"
  45.        END
  46.  
  47. ELSE SAY "Cannot create desktop object"
  48.  
  49. EXIT
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.