home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / drives.swg / 0006_DRIVES1.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  511 b   |  28 lines
  1. {
  2. Here are some routines For Changing and detecting drives.
  3. }
  4.  
  5. Uses Crt, Dos;
  6. Var
  7.         Regs     :Registers;
  8.  
  9. Function GetDrive :Byte;
  10. begin
  11.   Regs.AX := $1900;
  12.   Intr($21,Regs);
  13.   GetDrive := (Regs.AL + 1);
  14.   (* Returns  1 = A:,   2 = B:,   3 = C:,  Etc  *)
  15. end;
  16.  
  17. Procedure ChangeDrive(Drive :Byte);
  18. begin
  19.   Regs.AH := $0E;
  20.   Regs.DL := Drive;  (*  Drive   1 = A:, 2 = B:, 3 = C:  *)
  21.   Intr($21,Regs);
  22. end;
  23.  
  24. begin
  25.   ClrScr;
  26.   Writeln(' Current Drive : ',CHR( GetDrive+64 ));
  27. end.
  28.