Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.08;
Скачать: CL | DM;

Вниз

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

 
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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.07.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
3-23503
Alex-A
2002-06-14 10:38
2002.07.08
Генерация ошибки в MSSQL2000 и перехват ее в Delphi


14-23774
Big Daddy
2002-06-08 16:05
2002.07.08
Ну и ботов в чате развелось!!!


3-23513
Nicolaus
2002-06-17 15:50
2002.07.08
Может ли функция или проц. Oracle вернуть RecordSet?


7-23806
sniknik
2002-04-09 18:54
2002.07.08
Определение сетевого диска на доступность


4-23852
lab
2002-05-08 11:35
2002.07.08
перезагрузить при наличии TNMUDP