home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: WPS_PM / WPS_PM.zip / npssp181.zip / npswpsin.cmd < prev    next >
OS/2 REXX Batch file  |  1995-11-02  |  1KB  |  32 lines
  1. /* npswpsin.cmd - installer of NPS WPS Enhancer */
  2. /* ---------------------------------------- */
  3. /* Translated to spanish by Fernando Cassia */
  4. /* 103046.665@compuserve.com                */
  5. /* Digital Excess (OS/2) BBS                */
  6. /* +54-1-758-6474 (28.8kbps/24hs)           */
  7. /* ---------------------------------------- */
  8. options etmode
  9. options exmode
  10. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  11. call SysLoadFuncs
  12.  
  13. programName = SysSearchPath('PATH', 'NPSWPS.EXE')
  14. if programName = '' then
  15. do
  16.    say 'Error: No puedo encontrar NPSWPS.EXE en los directorios del PATH.'
  17.    exit
  18. end
  19.  
  20. if stream('NPSWPS.DLL', 'command', 'query exists') = '' then
  21. do
  22.    say 'Error: No puedo encontrar NPSWPS.DLL en el directorio actual.'
  23.    exit
  24. end
  25.  
  26. if SysCreateObject('WPProgram', 'NPS WPS Enhancer', '<WP_START>', 'EXENAME='programName';STARTUPDIR='directory()';PROGTYPE=PM;CCVIEW=YES;OBJECTID=<N.P.S.NPS WPS Enhancer>', 'u') = 0 then
  27.    say 'Error: No puedo crear el objeto.'
  28. else
  29.    say 'El Objeto del programa ha sido exitosamente creado en la carpeta de Inicio'
  30.    say 'del Sistema.'
  31. exit
  32.