home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / os2 / mnicon / install.cmd next >
Encoding:
Text File  |  1993-02-21  |  404 b   |  22 lines
  1. /*** install MNIcon class ***/
  2.  
  3. if RxFuncQuery("SysLoadFuncs") then
  4. do
  5.     call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs';
  6.     call SysLoadFuncs;
  7. end
  8.  
  9. Class = "MNIcon";
  10. DLL = "MNIcon";
  11.  
  12. result = SysRegisterObjectClass(Class, DLL);
  13.  
  14. if result then
  15. do
  16.     say Class "is registered successfully";
  17. end
  18. else
  19. do
  20.     say Class "is not registered (return code:" result||")";
  21. end
  22.