home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / trash081.zip / TRASHCAN.CMD < prev    next >
OS/2 REXX Batch file  |  1993-08-01  |  1KB  |  32 lines
  1. /* trashcan.cmd - install dll and create object on desktop             */
  2. /* stolen from author of blackhol.cmd Greg Czaja November 20, 1992 */
  3.  
  4. Parse source . . __rexx_name;
  5. __rexx_dir = Filespec('D',__rexx_name)||Filespec('P',__rexx_name)
  6.  
  7. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs';
  8. Call SysLoadFuncs;           
  9.  
  10.      system_dll=FileSpec('Drive',Value('SYSTEM_INI',,'OS2ENVIRONMENT'))||'\OS2\DLL';
  11.      rc=SysDeregisterObjectClass('DMan');
  12.      Address CMD '@ERASE 'system_dll'\TRASHCAN.DLL 2>NUL';
  13.      Address CMD '@COPY '__rexx_dir'Trashcan.DLL 'system_dll;
  14.      If rc <> 0                 /* registered OK ?                */
  15.         Then Do;
  16.           Say  "Trashcan: could not replace the DLL, rc="rc".";
  17.           Say  "Trashcan: delete the object and the DLL from \OS2\DLL directory.";
  18.           Exit;
  19.           End;
  20.      rc=SysRegisterObjectClass('Trashcan',system_dll||'\TRASHCAN.DLL');
  21.      If rc <> 1                 /* registered OK ?                */
  22.         Then Do;
  23.           Say  "Trashcan: could not register its object class, rc="rc".";
  24.           Exit;
  25.           End;
  26.      rc=SysCreateObject('Trashcan','Trash can','<WP_DESKTOP>');
  27.      If rc <> 1                 /* registered OK ?                */
  28.         Then Do;
  29.           Say  "Trashcan: could not create its object, rc="rc".";
  30.           End;
  31. Exit;
  32.