Форум: "Система";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
Вниз
Как выдвинуть, задвинуть CD-ROM ? Найти похожие ветки
← →
skovorodka (2002-03-27 21:54) [0]Когда я пишу:
mciSendString("Set cdaudio Door Open Wait", nil, 0, handle);
mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
D6 начинает жутко ругаться, что не знает такой команды.
← →
Suntechnic (2002-03-28 07:49) [1]Модуль нужный подключи....
← →
boogier (2002-03-28 09:47) [2]{
Компонент предназначен для того, чтобы открывать
лоток Cd и закрывать его.
Автор Михаил Христосенко
e-mail:kikoz@kemtel.ru
http://MihanDelphi.narod.ru
Все доработки прошу высылать на мыло!
}
unit EjectCD;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,mmsystem;
type
TEjectCD = class(TComponent)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
procedure OpenCD;
procedure CloseCD;
published
{ Published declarations }
end;
//procedure Register;
implementation
procedure TEjectCD.OpenCD;
begin
mciSendString("Set cdaudio door open wait", nil, 0, application.handle);
end;
procedure TEjectCD.CloseCD;
begin
mciSendString("Set cdaudio door closed wait", nil, 0, application.handle);
end;
//procedure Register;
//begin
// RegisterComponents("Mihan Components", [TEjectCD]);
//end;
end.
← →
lucky (2002-03-28 09:48) [3]2skovorodka
MMSystem
2Sutechnic
а какой модуль сказать влом???
← →
Suntechnic (2002-03-28 16:02) [4]>lucky © (28.03.02 09:48)
>а какой модуль сказать влом???
Да, влом. Потому как он в хелпе написан. Ведь не секрет, что подобный вопрос может задать только начинающий. Вот я и пытаюсь приучить человека, где в основном черпается информация.
← →
skovorodka (2002-03-28 18:44) [5]2Lucki спасибо 2Suntechnic :b :)
← →
Вова (2002-03-28 18:57) [6]У меня стопудово работает и для D и для E диска,если есть какие нибудь готовенькие примочки для сидюка пришли ,если не влом...
38. Как програмно закрыть дверцу CD-Rom"a?
Пример:
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;
-----------------------------------------------------------------
14. Как выдвинуть дверцу CD-ROM"а?
mciSendString("Set cdaudio Door Open Wait", nil, 0, handle);
Также mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c