델파이 소스입니다.
전 아래와 같은 방법으로 체크했습니다.
다음과 같은 함수를 선언한 후 호출해 보세요.........

procedure TForm1.DriveComboBox1Click(Sender: TObject);
var
  currentdrv: char;
  defaultdrv: integer;
begin
  defaultdrv := DriveComboBox1.Items.IndexOf('C: ['+GetVolumeName('C')+']');
  currentdrv := DriveComboBox1.Text[1];

  case GetDriveType(PChar(currentdrv + ':\')) of
    DRIVE_REMOVABLE :
      begin
        if not DiskInDrive(currentdrv) then begin
          showmessage('디스켓이 없습니다.');
          DriveComboBox1.ItemIndex := defaultdrv;
        end;
      end;
    DRIVE_CDROM :
      begin
        if not DiskInDrive(currentdrv) then begin
          showmessage('CD-Title이 없습니다.');
          DriveComboBox1.ItemIndex := defaultdrv;
        end;
      end;
    DRIVE_REMOTE :
      begin
        if not DiskInDrive(currentdrv) then begin
          showmessage('remote drive를 연결할 수 없습니다.');
          DriveComboBox1.ItemIndex := defaultdrv;
        end;
      end;
  end;
end;

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;



Jun 님이 쓰신 글 :
: 안녕하세요...
:
: drivecombobox와 directorycombobox를 연결해서 디렉토리 선택을 받으려고 하는데요...
:
: drivecombobox에서 플로피드라이브나 cd롬 드라이브등 현재 디스크가 삽입되지 않거나 포맷팅되지 않은 드라이브를 선택했을 때 i/o error 21이라는 에러가 나옵니다...
:
: 델파이에서도 이러한 에러가 있는 것 같던데...해결방법이 궁금합니다..
:
: 델파이에서는 아래처럼 해준다고 답변이 올라왔더라구요...
:
: procedure TForm1.MydrivecomboboxChange(Sender: TObject);
: begin
:   try
:     Mydirectorylistbox.drive := Mydrivecombobox.drive;
:   except on EInOutError do
:     messagedlg(#13 + 'the selected drive, or device is not ready'+ #13,
: mtwarning, [mbok], 0);
:   end;
: end;
:
: 아시는 분은 답변 부탁드립니다...
:
: