Как выдвинуть, задвинуть 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);

Как выдвинуть, задвинуть CD-ROM ? Найти похожие ветки