Delphi dicas

Verificando se o cd esta na unidade

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;