Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

Лоток CD-ROM. Очень нужно! Помогите! 


Woolen   (2001-11-27 11:07) [0]

Никто вчера, к сожалению, на мой вопрос не ответил. Все же, может быть, хроть кто нибудь знает как в программе определить: лоток CD-ROM выдвинут или нет? Заранее спасибо!



Alx2   (2001-11-27 12:20) [1]

А зачем это нужно узнавать?
Может быть, проще сразу подать команду на закрытие(открытие) лотка?



Fellomena   (2001-11-27 13:10) [2]

Хм... можно сделать так:



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;

И если после выполнения CloseCD будем иметь result:=false; то логично предположить, что
сидюк уже закрыт 8)



Victor   (2001-12-21 06:27) [3]

Можно закрыть и открыть лоток CD если надо исходники пиши на мыло



fester   (2001-12-22 00:50) [4]

ну нету такой функции....сам искал :-( можно только определить есть диск в СД или нет.




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.02 c
3-80409           Demon[DZ]             2002-02-26 11:06  2002.03.25  
Poisk v DBTreeView


1-80621           dimonf                2002-03-11 21:07  2002.03.25  
Господа, подскажите, как можно добавлять строки в StringGrid в цикле не зная заранее, сколько у меня, будет записей?


7-80706           Woolen                2001-11-27 11:07  2002.03.25  
Лоток CD-ROM. Очень нужно! Помогите!


1-80466           Alex Sm               2002-03-12 05:44  2002.03.25  
Service


1-80576           Nic                   2002-03-10 12:59  2002.03.25  
TStringGrid