home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / webg022.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1996-10-15  |  531b  |  18 lines
  1. /* Create Webgrab Object on Desktop */
  2. Call RxFuncAdd "SysLoadFuncs","RexxUtil","SysLoadFuncs"
  3. Call SysLoadFuncs
  4. CurrentDir=Directory()
  5. FileName=CurrentDir||"\webgrab.exe"
  6. ExeName="EXENAME="||FileName
  7. If SysCreateObject("WPProgram","WEBgrab","<WP_DESKTOP>",ExeName) then do
  8.       Say "Desktop WEBgrab Object was created."
  9.       rc=SysSetIcon(FileName,"g_r_a_b.ico")
  10.       End
  11. Else do
  12.  
  13.       Say "Could not create Desktop WEBgrab Object."
  14.       Say "Delete the WEbgrab icon on the desktop and try again"
  15. end
  16. Exit
  17.  
  18.