home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 9 Archive / 09-Archive.zip / drpnzip.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1994-11-06  |  488b  |  15 lines
  1. /* Create Drop and Zip Object on Desktop */
  2. Call RxFuncAdd "SysLoadFuncs","RexxUtil","SysLoadFuncs"
  3. Call SysLoadFuncs
  4. CurrentDir=Directory()
  5. FileName=CurrentDir||"\dropnzip.exe"
  6. ExeName="EXENAME="||FileName
  7. Say ExeName
  8. If SysCreateObject("WPProgram","Drop and Zip","<WP_DESKTOP>",ExeName) then do
  9.       Say "Desktop Drop and Zip Object was created."
  10.       rc=SysSetIcon(FileName,"DropnZip.ico")
  11.       End
  12. Else
  13.       Say "Could not create Desktop Drop and Zip Object."
  14. Exit
  15.