home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / websl022.zip / install.cmd next >
OS/2 REXX Batch file  |  1996-10-19  |  455b  |  14 lines
  1. /* Create Webslide Object on Desktop */
  2. Call RxFuncAdd "SysLoadFuncs","RexxUtil","SysLoadFuncs"
  3. Call SysLoadFuncs
  4. CurrentDir=Directory()
  5. FileName=CurrentDir||"\webslide.exe"
  6. ExeName="EXENAME="||FileName
  7. If SysCreateObject("WPProgram","WEBslide","<WP_DESKTOP>",ExeName) then do
  8.       Say "Desktop WEBslide Object was created."
  9.       rc=SysSetIcon(FileName,"websl.ico")
  10.       End
  11. Else
  12.       Say "Could not create Desktop WEBslide Object."
  13. Exit
  14.