не получается вытащищить СД!

← →
rog (2002-05-03 07:58) [0]

Здравствуйте,у меня 4 сд-рома, мне надо вытащить любой по его букве, посмотрел в Faq, но MciSendcommand.. не вытащила не один сд-ром.Может есть какие нибудь ещё способы для вытаскивания сд.
(уже два дня пробую по всякому, но никак, а Сд-плеер с виновсом который спокойно вытаскивает диск из любого сд-рома)

← →
Anatoly Podgoretsky (2002-05-03 09:11) [1]

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;

← →
rog (2002-05-10 10:05) [2]

Спасибо, попробую.

не получается вытащищить СД! Найти похожие ветки