Dec 162017
 
Turbo Pascal functions to determine whether or not a drive uses removeable media. Source included for TP4+.
File DRIVES.ZIP from The Programmer’s Corner in
Category Pascal Source Code
Turbo Pascal functions to determine whether or not a drive uses removeable media. Source included for TP4+.
File Name File Size Zip Size Zip Type
DRIVES.DOC 1772 401 deflated
DRIVES.PAS 2550 768 deflated
DRIVES.TPU 1472 646 deflated

Download File DRIVES.ZIP Here

Contents of the DRIVES.DOC file



Declaration
function DriveIsRemoveable(Drive : char) : boolean;

Purpose
Returns True if the specified drive uses removeable media.

Comments
Drive should be a letter in the range 'a'..'z' or 'A'..'Z'. If the
drive is invalid DriveIsRemoveable is unpredictable.

DriveIsRemoveable calls DOS function $44, subfunction 8 which is only
available in versions of DOS 3.x or higher.

------------------------------------------------------------------------

Declaration
function DriveIsFixed(Drive : char) : boolean;

Purpose
Returns True if the specified drive uses fixed media.

Comments
Drive should be a letter in the range 'a'..'z' or 'A'..'Z'. If the
drive is invalid DriveIsFixed is unpredictable.

DriveIsFixed calls DOS function $44, subfunction 8 which is only
available in versions of DOS 3.x or higher.

------------------------------------------------------------------------

Declaration
function DriveIsAbsent(Drive : char) : boolean;

Purpose
Returns True if the specified drive is invalid.

Comments
Drive should be a letter in the range 'a'..'z' or 'A'..'Z'. If the
drive is invalid DriveIsAbsent is unpredictable.

DriveIsAbsent calls DOS function $44, subfunction 8 which is only
available in versions of DOS 3.x or higher.

------------------------------------------------------------------------

Declaration
function NumberOfFloppies : integer;

Purpose
Returns the number of floppy drives installed on the system.

Comments
NumberOfFloppies calls ROM BIOS interrupt $11 to determine the
configuration of the system.



 December 16, 2017  Add comments

Leave a Reply