Função: Verificar Drivers A e B - Códigos Delphi

Função: Verificar Drivers A e B

// Verifica os drivers de disquete. A: e B:
// 1 = drive A:
// 2 = drive B:.

function DiskDriveReady(Drive : byte) : boolean; begin if (DiskFree(Drive) <> -1) then result := True else result := False; end;