home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 May / PCO_5_97.ISO / FilesBBS / OS2 / WEBSL022.ARJ / WEBSL022 / WEBSL022.ZIP / install.cmd next >
Encoding:
Text File  |  1996-10-19  |  455 b   |  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.