home *** CD-ROM | disk | FTP | other *** search
/ Chip: Extra / Image.bin / os2 / merlin / npswpsin.cmd < prev    next >
Encoding:
Text File  |  1995-09-15  |  789 b   |  26 lines
  1. /* npswpsin.cmd - installer of NPS WPS Enhancer */
  2.  
  3. options etmode
  4. options exmode
  5. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  6. call SysLoadFuncs
  7.  
  8. programName = SysSearchPath('PATH', 'NPSWPS.EXE')
  9. if programName = '' then
  10. do
  11.    say 'Error: Cannot find NPSWPS.EXE in PATH directories.'
  12.    exit
  13. end
  14.  
  15. if stream('NPSWPS.DLL', 'command', 'query exists') = '' then
  16. do
  17.    say 'Error: Cannot find NPSWPS.DLL in the current directory.'
  18.    exit
  19. end
  20.  
  21. 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
  22.    say 'Error: Cannot create object.'
  23. else
  24.    say 'The program object was successfully created in the start up folder.'
  25.  
  26. exit