home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 9 Archive / 09-Archive.zip / warpzip.zip / PrePlug.cmd < prev    next >
OS/2 REXX Batch file  |  1999-12-14  |  532b  |  15 lines
  1. /* PrePlugin for WarpZip                            */
  2. /* Tries to locate an existing installation         */
  3. /*                                                  */
  4.  
  5. /* WarpZip stores it's location here                */
  6. rc = Sysini('USER', 'WarpZip', 'Directory')
  7.  
  8. /* If not ERROR: then it should be a good directory */
  9. if rc <> 'ERROR:' then do
  10.   /* Set the InstDir variable to the new directory  */
  11.   InstDir = rc
  12.   /* Set the entry field to the new directory       */
  13.   CALL VpSetItemValue DirWin,1003,InstDir
  14. end
  15.