home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / wpsam110.zip / Register.cmd < prev    next >
OS/2 REXX Batch file  |  1993-11-23  |  2KB  |  72 lines
  1. /* */
  2. "@echo off"
  3.  
  4. Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. Call SysLoadFuncs
  6.  
  7. say "-------------------------------------------------------"
  8. say "Enter boot drive (e.g. 'c:'):"
  9. pull drive
  10.  
  11. say "-------------------------------------------------------"
  12. say "Searching and deregistering previous versions of WPSam:"
  13. say ""
  14.  
  15. RetCode = SysDeregisterObjectClass( "WPSamF");
  16.  
  17. if RetCode then
  18.   say 'Deregister successfully completed for WPSamF class.'
  19. else
  20.    say 'No previous version of WPSamF class found.'
  21.  
  22. RetCode = SysDeregisterObjectClass( "WPSam");
  23.  
  24. if RetCode then
  25.   say 'Deregister successfully completed for WPSam  class.'
  26. else
  27.    say 'No previous version of WPSam  class found.'
  28.  
  29. say "-------------------------------------------------------"
  30. say "Copying Files:"
  31. say ""
  32.  
  33. "copy WPSamF.dll "drive"\os2\dll\WPSamF.dll > nul"
  34. if rc > 0 then
  35.    signal Fehler
  36.  
  37. "copy WPSam.dll "drive"\os2\dll\WPSam.dll > nul"
  38. if rc > 0 then
  39.    signal Fehler
  40.  
  41. say "-------------------------------------------------------"
  42. say "Register WPSam classes:"
  43. say ""
  44.  
  45. RetCode = SysRegisterObjectClass( "WPSamF", wpsamf)
  46. if RetCode then
  47.    say 'WPSamF class registered.'
  48. else
  49.    signal Fehler
  50.  
  51. RetCode = SysRegisterObjectClass( "WPSam", wpsam)
  52. if RetCode then
  53.    say 'WPSam  class registered.'
  54. else
  55.    signal Fehler
  56.  
  57. beep(3000,100)
  58. beep(2832,100)
  59. beep(3000,100)
  60.  
  61. say "-------------------------------------------------------"
  62. say "Installation completed."
  63.  
  64. exit
  65.  
  66. Fehler:
  67. beep(1000,500)
  68. say "-------------------------------------------------------"
  69. say "Error occured! Installation aborted."
  70.  
  71. exit
  72.