Buscar por:

Abrir e fechar bandeja de cd (para vários drivers);

Código

Olá, é minha primeira dica aki no planeta Delphi espero que gostem

function OpClCD(Drive : char; Status : char): Boolean;

// Requer a MMSystem e MPlayer declaradas na clausula uses da unit

//

var

mp : TMediaPlayer;

begin

Status := UpCase(Status);

 If Status = 'A' then

  Begin

   result := false;

   Application.ProcessMessages;

   mp := TMediaPlayer.Create(nil);

   mp.Visible := false;

   mp.Parent := Application.MainForm;

   mp.Shareable := true;

   mp.DeviceType := dtCDAudio;

   mp.FileName := Drive + ':';

   mp.Open;

   Application.ProcessMessages;

   mciSendCommand(mp.DeviceID,

   MCI_SET, MCI_SET_DOOR_OPEN, 0);

   Application.ProcessMessages;

   mp.Close;

   Application.ProcessMessages;

   mp.free;

   result := true;

  End Else

  Begin

   If Status = 'F' Then

    Begin

      result := false;

      Application.ProcessMessages;

      mp := TMediaPlayer.Create(nil);

      mp.Visible := false;

      mp.Parent := Application.MainForm;

      mp.Shareable := true;

      mp.DeviceType := dtCDAudio;

      mp.FileName := Drive + ':';

      mp.Open;

      Application.ProcessMessages;

      mciSendCommand(mp.DeviceID,

      MCI_SET, MCI_SET_DOOR_CLOSED, 0);

      Application.ProcessMessages;

      mp.Close;

      Application.ProcessMessages;

      mp.free;

      result := true;

    End Else

    Begin

     showMessage('erro');

    End;

  End;

Pra usar e só escrever

OpClCD('Driver','a'); {Para Abrir}

OpClCD('Driver','f'); {Para Fechar}