Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как выдвинуть, задвинуть CD-ROM ?

skovorodka © (2002-03-27 21:54:00)
Когда я пишу:
mciSendString("Set cdaudio Door Open Wait", nil, 0, handle);
mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
D6 начинает жутко ругаться, что не знает такой команды.

Вова (2002-03-28 18:57:00) [1]
У меня стопудово работает и для 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);

skovorodka (2002-03-28 18:44:00) [2]
2Lucki спасибо 2Suntechnic :b :)

Suntechnic (2002-03-28 16:02:00) [3]
>lucky © (28.03.02 09:48)
>а какой модуль сказать влом???
Да, влом. Потому как он в хелпе написан. Ведь не секрет, что подобный вопрос может задать только начинающий. Вот я и пытаюсь приучить человека, где в основном черпается информация.

lucky (2002-03-28 09:48:00) [4]
2skovorodka
MMSystem

2Sutechnic
а какой модуль сказать влом???

boogier (2002-03-28 09:47:00) [5]
{
Компонент предназначен для того, чтобы открывать
лоток 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.

Suntechnic (2002-03-28 07:49:00) [6]
Модуль нужный подключи....

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »