home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 7 Games / 07-Games.zip / botsos2.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1999-02-18  |  636b  |  24 lines
  1. /* setup program icon on OS/2 desktop */
  2.  
  3. If(RxFuncQuery("SysCreateObject") != 0) Then
  4.   rc = RxFuncAdd("SysCreateObject", "RexxUtil", "SysCreateObject")
  5. If(RxFuncQuery("SysSearchPath") != 0) Then
  6.   rc = RxFuncAdd("SysSearchPath", "RexxUtil", "SysSearchPath")
  7.  
  8. x=directory()
  9. s=x||'\bots.exe'
  10.  
  11. params = "OBJECTID=<bots>;EXENAME=" || s || ";PROGTYPE=PM;STARTUPDIR="||x,
  12.      || ";PARAMETERS=-mcd -mi128000"
  13.  
  14. rc = SysCreateObject("WPProgram", "Bots", "<WP_DESKTOP>", params, "R")
  15.  
  16. If(rc = 0) Then
  17.   Do
  18.     Say "unable to create program icon"
  19.     Say ""
  20.   end
  21. else
  22. rc = SysSetObjectData("<bots>","ICONFILE=.\BOTS.ICO")
  23.  
  24.