home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / source / wpshidl / samples / pwfolder / add.cmd next >
Encoding:
Text File  |  1993-11-18  |  668 b   |  30 lines
  1. /*  */
  2. Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. Call SysLoadFuncs
  4.  
  5. say 'Please enter Boot drive letter'
  6. pull boot
  7. dll = substr(boot,1,1) || ':\os2\dll'
  8.  
  9. 'copy PWFolder.dll' dll
  10.  
  11. if rc then do
  12.    say 'Error DLL could not be updated please re-boot'
  13.    /* Remove bad entry */
  14.    RetCode = SysDeregisterObjectClass( "PWFolder");
  15.    'pause'
  16.    exit(1)
  17.    end
  18.  
  19. RetCode = SysRegisterObjectClass( "PWFolder", "pwfolder")
  20.  
  21. if RetCode then
  22.    say 'PWFolder Class registered'
  23. else do
  24.    say 'Error PWFolder Class failed to register'
  25.    /* Remove false entry */
  26.    RetCode = SysDeregisterObjectClass( "PWFolder");
  27.    exit(1)
  28.    end
  29.  
  30.