Interceptar o CD-ROM

Question

algu�m sabe como Interceptar a chamada ao CD-ROM. Ex.: quando o usu�rio inserir o CD-Rom o programa avisar....

Nerdex · Answer

Deves trabalhar com MCI (multim�dia control devices), enviando e/ou recebendo os comandos espec�ficos para o caso...

ex: para abrir a gaveta do CD-Rom:
uses MMSystem;
MciSendString(�Set cdaudio door open�, nil, 0, handle);

Existem dezenas de comandos (Multimedia Command Strings), para diversos devices, como: CDRom, VCR, DVD, DAT.....

Abaixo o link com todos as string de comando para os drivers multim�dia, compat�veis com os SOs Windows:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/htm/_win32_multimedia_command_strings.asp

Cebikyn · Answer

Ou se preferir pode usar o c�digo abaixo:

type
  TForm1 = class(TForm)
  {...}
  private
    {...}
    procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
  public

  end;

{...}

implementation

{$R *.DFM}

procedure TForm1.WMDeviceChange(var Msg: TMessage);
const
  DBT_DEVICEARRIVAL = $8000;
  DBT_DEVICEREMOVECOMPLETE = $8004;
var
  Mensagem: string;
begin
  inherited;
  case Msg.wParam of
    DBT_DEVICEARRIVAL: Mensagem  := �Foi inserido um CD!�;
    DBT_DEVICEREMOVECOMPLETE: Mensagem := �O CD foi removido!�;
  end;
  ShowMessage(Mensagem);
end;

F�rum Interceptar o CD-ROM #230543