Состояние CD-ROM

procedure TForm1.Button1Click(Sender: TObject);
 var
   s: array[0..64] of Char;
   error: Cardinal;
   Text: array[0..255] of Char;
 begin
   error := mciSendstring('open cdaudio alias geraet', nil, 0, Handle);
   if error <> 0 then
   begin
     mciGetErrorstring(error, @Text, 255);
     ShowMessage(text);
     mciSendstring('close geraet', nil, 0, Handle);
     Exit;
   end;
 
   error := mciSendstring('status geraet mode', @s, SizeOf(s), Handle);
   if error <> 0 then
   begin
     mciGetErrorstring(error, @Text, 255);
     ShowMessage(Text);
     mciSendstring('close geraet', nil, 0, Handle);
     Exit;
   end;
 
   mciSendstring('close geraet', nil, 0, Handle);
   ShowMessage( s);
 end;

    if (GetDriveType(pbuff) == DRIVE_CDROM) // нашли привод
    {
      String name = String(pbuff);      
 
      str = "open cdaudio!" + name.SubString(1,2) + " alias CDdrive";
      dwErr = mciSendString(str.c_str(), NULL, 0, 0);
      if (dwErr)
      {
        str = "Диск " + name + " не найден";
        MessageBox(NULL,str.c_str(),0,MB_ICONERROR | MB_OK);
        return 0;
      }      
 
      if (IsCDOpen("\\\\.\\" + name.SubString(1,2)))
      {
        mciSendString("set CDdrive door closed wait", NULL, 0, 0); // если открыт, закроем
      }
      else
      {
        mciSendString("set CDdrive door open wait", NULL, 0, 0); // если закрыт, откроем
      }
      mciSendString("close CDdrive", NULL, 0, 0);
      return 0;
    }