home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / icol111b.zip / setup.cmd < prev    next >
OS/2 REXX Batch file  |  1996-07-09  |  1KB  |  53 lines
  1. /* HFKFOLDR.CMD  - Install IC Phone Folder & Objects on the desktop */
  2. '@ECHO OFF'
  3.  
  4. 'pkunzip2 -o sdprun.zip'
  5.  
  6. env='OS2ENVIRONMENT'
  7.  
  8.  
  9. SAY
  10. SAY "Installing IC Phone Version 1.0 - Desktop Folder"
  11. SAY
  12.  
  13. /* Initializations */
  14.  
  15. /* Add RexxUtill functions */
  16. /***************************/
  17. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  18. Call SysLoadFuncs
  19.  
  20. ICDIR=getenv('ICPHONE')
  21. ICHLP=ICDIR"\HELP"
  22. view = SysSearchPath( "PATH", "VIEW.EXE" )
  23. ed   = SysSearchPath( "PATH", "E.EXE" )
  24.  
  25.  
  26. say 'Creating IC Phone Object'
  27. rc=SysSetIcon(ICDIR"\SDPOS2.EXE", ICDIR"\SDPOS2.ICO") 
  28. rc=SysCreateObject( "WPProgram", "ICPhone", "<WP_DESKTOP>",,
  29.                "PROGTYPE=PM;EXENAME="ICDIR"\SDPOS2.EXE;STARTUPDIR="ICDIR"", "R"  )
  30. if \rc  then do
  31.     say 'Failed to create the IC Phone Program Object'
  32.     return
  33. end
  34.  
  35.  
  36. say 'Successfull Installation'
  37. return
  38.  
  39.  
  40.  
  41. /**************************************************************************/
  42. /* g e t e n v                                                                                */
  43. /**************************************************************************/
  44. getenv: procedure
  45.   numargs = arg()
  46.   if numargs <> 1 then do
  47.     say 'ERROR: getenv: number of arguments ('numargs') should be 1.'
  48.     exit
  49.   end
  50.   val = value(arg(1),,'OS2ENVIRONMENT')
  51.   return val
  52.  
  53.