Как закрыть 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; 
Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий