Como saber se o CD está no drive
23/01/2006
0
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!
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] 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
Curtir tópico
+ 0
Responder
Posts
23/01/2006
Rafael Mattos
É só vc pegar o Componente TMediaPlayer que está na paletta ´System´,
que vc consegue usar esta função.
que vc consegue usar esta função.
Responder
Clique aqui para fazer login e interagir na Comunidade :)