home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / pers.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1997-01-12  |  528b  |  16 lines
  1. /* rexxprogram for install av PERS */
  2. call RxFuncAdd 'SysLoadfuncs', 'RexxUtil', 'SysLoadfuncs'
  3. call SysLoadFuncs
  4.  
  5. say "Lager programobjekt på desktop.............."
  6. currentDirectory = directory()
  7. programName = "\PERS.EXE"
  8. programPath = insert( currentDirectory, programName )
  9. parameters = insert( "EXENAME=", programPath )
  10. rc = SysSetIcon("PERS.EXE","PS.ICO")
  11.  
  12. rc = SysCreateObject("WPProgram","OSTENSE PERS","<WP_DESKTOP>",,
  13.                 parameters, "REPLACE" )
  14.  
  15. say "Ferdig å lage program icon på desktop"
  16.