Olá!, estou fazendo um aplicativo para a empresa onde trabalho e precisaria que o mesmo detectasse se foi iserido alguma midia de CD ou DVD no driver, andei pesquisando e consegui o codigo abaixo, mas não estou conseguindo usa-lo. Código: Function MidiaPresente(MediaPlayer: TMediaPlayer): Boolean; var Params: MCI_STATUS_PARMS; S: array [0..255] of 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; Inseri o componente MediaPlayer1 e declarei na USES MMSystem e fiz a compilação ele compila normalmente, mas ainda não estou conseguindo utiliza-lo. alguém sabe como utilizar esta função???