Multimidia - ver se o cd esta no drive com mediaplayer

Top  Previous  Next

Para identificar se o CD está no drive use esta função:

 

function MidiaPresente(MediaPlayer: TMediaPlayer): Boolean;

var

   Params: MCI_STATUS_PARMS;

   S: array [0.255of char;

   r: Integer;

begin

  //verifica se existe um cd inserido

  Params.dwItem:= MCI_STATUS_MEDIA_PRESENT;

  r:= MCISendCommand(MediaPlayer.DeviceID, MCI_STATUS,                     

                                                                           

                                                                           

       MCI_STATUS_ITEM,  Integer(Addr(Params)));

  if r <> 0 then

  begin

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

     ShowMessage('Erro: ' + StrPas(S));

  end

  else

     Result:= Params.dwReturn = 1;

end;

 

 

PS: Não se esqueça de incluir MMSystem na cláusula USES.