Обновлено: 01 декабря, 2018

Как закрыть CD программно в Delphi?

uses MMSystem; 
  
procedure CloseCD(Drive : char); 
var
  mp : TMediaPlayer; 
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; 
  
procedure TForm1.Button1Click(Sender: TObject); 
begin
  CloseCD('D'); 
end;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439