home *** CD-ROM | disk | FTP | other *** search
/ ftp.sunet.se/pub/OS2/ / 2014.11.ftp.sunet.se_pub_OS2.tar / ftp.sunet.se / pub / OS2 / hobbes / os2 / util / archiver / warpzip.exe / PrePlug.cmd < prev    next >
OS/2 REXX Batch file  |  2001-12-28  |  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.