MensajePublicado: Jue 23 Nov, 2000 12:11 pm    Asunto: Detectar disco en unidad A: Responder citando
code:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int EMode;
EMode = SetErrorMode(SEM_FAILCRITICALERRORS);
 try
  {
   if (DiskSize(1) != -1)
     ShowMessage("Disk in drive A: !");
   else
     ShowMessage("No disk in drive A: !");
   }
 catch(...) {
   SetErrorMode(EMode);
  }
}