Delphi dicas

Como saber se o cd está no drive

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,

por : Daniel Nunes De Sousa