příklad

Z prvního příkladu si hned odvodíme další funkci. Jejím úkolem bude vypsat typ parametrem zadané jednotky. Konstanty budou stejné.
function DriveType(Drive: String): String;
const
DRIVE_UNKNOWN = 0;
DRIVE_NO_ROOT_DIR = 1;
DRIVE_REMOVABLE = 2;
DRIVE_FIXED = 3;
DRIVE_REMOTE = 4;
DRIVE_CDROM = 5;
DRIVE_RAMDISK = 6;
var
{strDriveType : String;}
intDriveType : Integer;
begin
if Drive[Length(Drive)] <> '\' then Drive := Drive + ':\';
intDriveType := GetDriveType(PChar(Drive));
Case intDriveType of
DRIVE_UNKNOWN : DriveType := 'Neznámý typ disku';
DRIVE_NO_ROOT_DIR : DriveType := 'Disk není naformátován';
DRIVE_REMOVABLE : DriveType := 'Výměnný disk';
DRIVE_FIXED : DriveType := 'Lokální disk';
DRIVE_REMOTE : DriveType := 'Síťový disk';
DRIVE_CDROM : DriveType := 'CD ROM';
DRIVE_RAMDISK : DriveType := 'RAM disk';
end;
end;