Sprawdzanie, czy dyskietka lub CD-ROM jest w stacji

Aby po kliknięciu przycisku Button1 sprawdzić, czy dyskietka jest w stacji:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (FileExists("a:\\NUL"))
      ShowMessage("Dyskietka jest w stacji");
   else
      ShowMessage("Brak dyskietki w stacji");
}

Aby po kliknięciu przycisku Button2 sprawdzić, czy CD-ROM jest w stacji:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (FileExists("d:\\NUL"))
      ShowMessage("CD-ROM jest w stacji");
   else
      ShowMessage("Brak CD-ROMu w stacji");
}