23/01/2006

Como saber se o CD está no drive

alguem sabe Como saber se o CD está no drive ???
tenho um exemplo aqui mais da um erro, o delphi nao reconhece o TMediaPlayer... isso é um componente adicional?

se alguem tiver um exemplo que funcione, ou se souber me resolver o problema com esse, por favor, poste aqui...

Abraços!

Uses MMSystem
 
Function MidiaPresente(MediaPlayer: TMediaPlayer): Boolean;
var
Params: MCI_STATUS_PARMS;
S: array [0..255&93; 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;



Mahdak

Respostas

23/01/2006

Rafmattos

É só vc pegar o Componente TMediaPlayer que está na paletta ´System´,
que vc consegue usar esta função.


Responder Citar