home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / XLIB.ZIP / XVOLUME.INT < prev    next >
Encoding:
Text File  |  1992-09-06  |  1.9 KB  |  44 lines
  1. (*****************************************************************************)
  2. (*                                                                           *)
  3. (*        filename        : XVOLUME.PAS                                      *)
  4. (*        author          : Stefan Boether / Compuserve Id : 100023,275      *)
  5. (*                                                 FidoNet :  2:242/200      *)
  6. (*                                                 FidoNet :  2:243/91       *)
  7. (*                                  Internet: 100023.275@CompuServe.COM      *)
  8. (*                                        Maus-Net: Stefan Böther @ HRO      *)
  9. (*        system          : TURBO 6.01 / TPW 1.5 / DOS 3.3 / WIN 3.1         *)
  10. (*        changes         :                                                  *)
  11. (*        when    what                                                who    *)
  12. (*---------------------------------------------------------------------------*)
  13. (*****************************************************************************)
  14. (*  Description :   Disk Volume handling functions                           *)
  15. (*****************************************************************************)
  16. {Header-End}
  17.  
  18. unit XVolume;
  19.  {$IfnDef Windows } {$O+} {$Endif}
  20.                     {$D-}
  21.  
  22. interface
  23.  
  24. uses {$IFDEF Windows}
  25.       (* Z:OWL\ *)       WObjects,
  26.                          WinDos;
  27.  
  28.      {$ELSE}
  29.       (* Y:TVISION\ *)   Objects,
  30.                          Dos;
  31.      {$ENDIF}
  32.  
  33. type { The object for volume/label access }
  34.      PVolumeLabel = ^TVolumeLabel;
  35.      TVolumeLabel = object( TObject )
  36.        Drv : Char;
  37.        constructor Init   ( ADrv:Char );
  38.        procedure   Put    ( Labl:PathStr ); virtual;
  39.        procedure   Delete ( Labl:PathStr ); virtual;
  40.        procedure   Rename ( Labl:PathStr ); virtual;
  41.        function    Get: PathStr; virtual;
  42.      end;
  43.  
  44.