Introduzione:
Attravero questo TISP Delphi, potete controllare se il Driver "A:" è pronto. Il codice è riportato qui sotto:
Codice:

function DiskInDrive(const Drive: Char): Boolean;
var DrvNum: Byte;
    EMode: Word;
begin
  Result := False;
  DrvNum := Ord(Drive);
  if DrvNum >= Ord('a') then 
    Dec(DrvNum, $20);
  EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    if DiskSize(DrvNum-$40) <> -1 then
      Result := true
    else
      MessageBeep(0);
  finally
    SetErrorMode(EMode);
  end;
end;