Operações com CD-Rom
30/09/2003
0
Ola!
Estou trabalhando com uma máquina com duas unidade de cd, uma CD-Rom e outra CD-RomRW e Preciso saber se existe um CD na unidade de CD-RomRW se não existir abrir o mesmo.
Consegui esta função mais não sei como executar:
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;
Um abraço e Obrigado.
Estou trabalhando com uma máquina com duas unidade de cd, uma CD-Rom e outra CD-RomRW e Preciso saber se existe um CD na unidade de CD-RomRW se não existir abrir o mesmo.
Consegui esta função mais não sei como executar:
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;
Um abraço e Obrigado.
Iranilson
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)