home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / suite.zip / warpzip.zip / rebuild.cmd < prev    next >
OS/2 REXX Batch file  |  1999-12-20  |  2KB  |  48 lines
  1. /********************************************/
  2. /* Run this script to set up                */
  3. /* a new desktop object                     */
  4. /********************************************/
  5.  
  6. /* Prerequisites for the desktop object     */
  7. /* and this cmd file                        */
  8. crlf    ='0d0a'x
  9. exe    ='warpzip.exe'
  10. Title    ='WarpZip'
  11. Setup    ='OBJECTID=<WARPZIP>;'||,
  12.      'EXENAME=' || Directory() || '\' || exe || ';' ||,
  13.      'STARTUPDIR=' || Directory() || ';' ||,
  14.      'ASSOCTYPE=ZIP File,,;'||,
  15.      'ASSOCFILTER=*.ZIP,*._,,;'||,
  16.      'PROGTYPE=PM;'
  17.  
  18. /* Load RexxUtil DLL                        */
  19. call RxFuncAdd 'SysLoadFuncs' , RexxUtil, 'SysLoadFuncs'
  20. call SysLoadFuncs
  21. Call SysCls
  22.  
  23. say crlf crlf
  24. say 'This script sets up the desktop object for '||Title
  25. say 'Be sure you are running this from the '||Title||' directory.'||crlf crlf
  26.  
  27. say 'Press [Y] to continue or [Enter] to quit'||crlf
  28. pull approval
  29. if approval <> 'Y' then exit
  30. say ''
  31.  
  32. /* Are we in the right program directory?   */
  33. say 'Locating '||exe||'...'||crlf
  34. TestFor=directory()||'\'||exe
  35. CALL SysFileTree TestFor,'List','FO'
  36. if List.0 = 0 then do
  37.    say 'Please run this program from the same directory as the '||exe||' file'||crlf
  38.    say 'Exiting...'||crlf
  39.    exit
  40. end
  41.  
  42. call SysCreateObject "WPProgram", Title, "<WP_DESKTOP>", Setup, 'Update'
  43. /* Check if the WPS object was created      */
  44. if rc = 0 then
  45.    say 'Object creation for 'Title ' failed!  rc='||crlf
  46. else
  47.    say 'Object created for' Title||crlf
  48.