home *** CD-ROM | disk | FTP | other *** search
/ Computerworld 1996 April / Computerworld_1996-04_cd.bin / ibm / programy / htmlwiza / install.cmd < prev    next >
Encoding:
Text File  |  1994-11-06  |  469 b   |  14 lines
  1. /* Create HTML Wizard Object on Desktop */
  2. Call RxFuncAdd "SysLoadFuncs","RexxUtil","SysLoadFuncs"
  3. Call SysLoadFuncs
  4. CurrentDir=Directory()
  5. FileName=CurrentDir||"\htmlwiz.exe"
  6. ExeName="EXENAME="||FileName
  7. If SysCreateObject("WPProgram","HTML Wizard","<WP_DESKTOP>",ExeName) then do
  8.       Say "Desktop HTML Wizard Object was created."
  9.       rc=SysSetIcon(FileName,"htmlwiz.ico")
  10.       End
  11. Else
  12.       Say "Could not create Desktop HTML Wizard Object."
  13. Exit
  14.