home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1999 February / PCO_0299.ISO / filesbbs / os2 / xfolder.arj / XFLD082.ZIP / install / od.cmd < prev    next >
Encoding:
Text File  |  1998-09-27  |  1.3 KB  |  37 lines
  1. /* OD.CMD: this script re-enables the Object Desktop class
  2.    "TSEnhFolder" which might have been deregistered by the
  3.    install script.
  4.  
  5.    (W) (C) Ulrich Möller. All rights reserved.
  6.  */
  7.  
  8. "@echo off"
  9. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  10. call SysLoadFuncs
  11.  
  12. say "This script will re-install the TSEnhFolder class on your system, which"
  13. say "may have been deregistered by the XFolder install script."
  14. say "This only functions properly if Object Desktop is currently installed."
  15. call charout ,"Are you sure you wish to re-install this class? (Y/N) >"
  16. key = ''
  17. do until (pos(key,"YN") > 0)
  18.    key = translate(SysGetKey("NOECHO"))
  19. end;
  20. say key;
  21. say "";
  22. if (key = "Y") then do
  23.     if (SysRegisterObjectClass("TSEnhFolder", "OBJDEFLD") = 1) then do
  24.         say "Registration successful. You will have to restart the WPS or "
  25.         say "reboot to make the changes active. Press any key to exit now."
  26.         "pause >NUL"
  27.     end
  28.     else do
  29.         say "Registration failed. Either you do not have Object Desktop "
  30.         say "installed, or the file OBJDEFLD.DLL is not on your LIBPATH. "
  31.         say "You may try to re-install Object Desktop completely."
  32.         say "Press any key to exit now."
  33.         "pause >NUL"
  34.     end;
  35. end;
  36.  
  37.