home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / wps / system / wpsrexx / wps2inst.cmd < prev    next >
Encoding:
Text File  |  1993-08-17  |  879 b   |  38 lines
  1. /* WPS2Rexx/2 */
  2. /* Installation file WPS2Inst.Cmd */
  3.  
  4. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs';
  5. Call SysLoadFuncs;
  6.  
  7.  
  8. '@echo off'
  9. say 'Installation of WPS2Rexx/2'
  10. say '(c) Kim Kruse Hansen , 1993'
  11. say ''
  12. say 'Press letter of bootdrive or ESC to abort'
  13. bootdrive = SysGetKey('NOECHO')
  14.  
  15. if c2d(bootdrive) \= '27' then
  16. do
  17.  'copy wps2rexx.dll ' bootdrive||':\os2\dll'
  18.  if rc = 0 then
  19.  do
  20.    rc=SysRegisterObjectClass('WPS2Rexx','WPS2REXX');
  21.    if rc = 1 then
  22.    do
  23.      rc=SysCreateObject('WPS2Rexx','WPS2Rexx/2','<WP_DESKTOP>', ,
  24.                             'OBJECTID=<ID_WPS2REXX>;');
  25.      if rc = 1 then
  26.        say 'Installation is complete'
  27.      else
  28.        say 'Error : Cant create object'
  29.    end
  30.    else
  31.      say 'Error : Cant register class'
  32.  end
  33.  else
  34.    say 'Error : Cant copy dll'
  35. end
  36. else
  37.   say 'Installtion aborted'
  38.