Multimidia - ver se tem um cd no drive

Top  Previous  Next

uses MMSystem;

 

function MidiaPresente(DeviceID: MCIDeviceID): Boolean;

var

   Params: TMCI_STATUS_PARMS;

   r: DWORD;

   S: array [0..255of char;

begin

  //verifica se existe um cd inserido no drive

  Params.dwItem:= MCI_STATUS_MEDIA_PRESENT;

  r:= MCISendCommand(DeviceID,MCI_STATUS, MCI_STATUS_ITEM,                 

                                                       Integer(@Params));

  if r <> 0 then

  begin

     MCIGetErrorString(r, S, SizeOf(S));

     raise EMCIDeviceError.Create(StrPas(S));

  end;

  Result:= Params.dwReturn = 1;

end;