Checar CD no Drive!

[Douglas Soares]

Aqui está uma boa função para checar se o CD-ROM está no drive!

http://www.comandodigital.com.br/forum/index.php?showtopic=9

Abraços

[geovanepc]

Tenho esta aqui.

028 - Como saber se o CD está no drive

Uses MMSystem

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;

OBS: Dica retirada do DTDelphi 2.8 (LloydSoft) 900 Dicas de programação Delphi.