управление CD ROMom

[Cricket2007]

Всем привет! Я нашел вот такой код

#include <mmsystem.h>
#include <stdio.h>
#pragma comment(lib,"winmm.lib")

/* Команды */
char * CdCmdSet = "set";
char * CdCmdStatus = "status";
char * CdCmdPlay = "play";
char * CdCmdPause = "pause";
char * CdCmdStop = "stop";
char * CdCmdResume = "resume";

/* Флаги команд */
char * CdCmdFlagOpen = "door open";
char * CdCmdFlagClose = "door closed";
char * CdCmdCurTrack = "current track";
char * CdCmdCurMode = "mode";
char * CdCmdFlagEmpty = "";

/* Флаги выполнения */
char * CdFlagWait = "wait";
char * CdFlagEmpty = "";

/* Буфер, в котором будем создавать команды */
char CdCommandBuffer[256];

/* Создание команды без указания имени CD-ROM'а */
char * CreateCdCommand(char * pBuffer, char * pCommand, char * pCmdFlags, char * pFlags) {
sprintf(pBuffer,"%s cdaudio %s %s",pCommand,pCmdFlags,pFlags);
return pBuffer;
}

/* Создание команды с указанием имени CD-ROM'а */
char * CreateCdCommandEx(char * pBuffer, char DriveLetter, char * pCommand, char * pCmdFlags, char * pFlags) {
sprintf(pBuffer,"%s cdaudio!%c: %s %s",pCommand,DriveLetter,pCmdFlags, pFlags);
return pBuffer;
}
Теперь, используя вспомогательные функции и переменные, отдавать команды управления CD-ROM'ом не просто, а очень просто.
Открыть CD-ROM, ожидая выполнения этой команды:
mciSendStringA(CreateCdCommand(CdCo mmandBuffer,CdCmdSet,CdCmdFlagOpen, CdFlagWait),
NULL,
0,
INVALID_HANDLE_VALUE);
Закрыть CD_ROM, ожидая выполнения этой команды:
mciSendStringA(CreateCdCommand(CdCo mmandBuffer,CdCmdSet,CdCmdFlagClose ,CdFlagWait),
NULL,
0,
INVALID_HANDLE_VALUE);
Начать воспроизведение без ожидания выполнения:
mciSendStringA(CreateCdCommand(CdCo mmandBuffer,CdCmdPlay,CdCmdFlagEmpt y,CdFlagEmpty),
NULL,
0,
INVALID_HANDLE_VALUE);
Приостановить воспроизведение(пауза) без ожидания выполнения:
mciSendStringA(CreateCdCommand(CdCo mmandBuffer,CdCmdPause,CdCmdFlagEmp ty,CdFlagEmpty),
NULL,
0,
INVALID_HANDLE_VALUE);
Возобновить воспроизведение без ожидания выполнения:
mciSendStringA(CreateCdCommand(CdCo mmandBuffer,CdCmdResume,CdCmdFlagEm pty,CdFlagEmpty),
NULL,
0,
INVALID_HANDLE_VALUE);
Остановить воспроизведение(стоп) без ожидания выполнения:
mciSendStringA(CreateCdCommand(CdCo mmandBuffer,CdCmdStop,CdCmdFlagEmpt y,CdFlagEmpty),
NULL,
0,
INVALID_HANDLE_VALUE);
Получить номер текущей дорожки, ожидая выполнения этой команды:
mciSendStringA(CreateCdCommand(CdCo mmandBuffer,CdCmdStatus,CdCmdCurTra ck,CdFlagWait),
CdCommandBuffer,
255,
INVALID_HANDLE_VALUE);
ShowMessage("Current track is "+AnsiString(CdCommandBuffer));
Получить текущее состояние, ожидая выполнения этой команды:
mciSendStringA(CreateCdCommand(CdCo mmandBuffer,CdCmdStatus,CdCmdCurMod e,CdFlagWait),
CdCommandBuffer,
255,
INVALID_HANDLE_VALUE);
ShowMessage("Current mode is \'"+AnsiString(CdCommandBuffer)+"\' ");
Если в системе присутствует несколько приводов CD, то для задания конкретного привода вместо функции CreateCdCommand следует использовать CreateCdCommandEx

запустил но как сделать сюда хотяб функцию перехода на сл трек? где вообще взять как можно больше инфы о том как программно управлять CD ROMom например заблокировать его

[Cricket2007]

Короче если кто знает то подскажите как на С++ управлять сидиромом хочу узнать как можно больше по этой теме

[hoza_syl]

Знаю только как закрывать и открывать СD_ROM

unit DriveTools;

interface

uses

Windows, SysUtils, MMSystem;

function CloseCD(Drive : Char) : Boolean;
function OpenCD(Drive : Char) : Boolean;

implementation

function OpenCD(Drive : Char) : Boolean;
Var

Res : MciError;
OpenParm: TMCI_Open_Parms;
Flags : DWord;
S : String;
DeviceID : Word;
begin

Result:=false;
S:=Drive+':';
Flags:=mci_Open_Type or mci_Open_Element;
With OpenParm do begin
dwCallback := 0;
lpstrDeviceType := 'CDAudio';
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
IF Res<>0 Then exit;
DeviceID:=OpenParm.wDeviceID;
try
Res:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
IF Res=0 Then exit;Result:=True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;

function CloseCD(Drive : Char) : Boolean;
Var

Res : MciError;
OpenParm: TMCI_Open_Parms;
Flags : DWord;
S : String;
DeviceID : Word;
begin

Result:=false;
S:=Drive+':';
Flags:=mci_Open_Type or mci_Open_Element;
With OpenParm do begin
dwCallback := 0;
lpstrDeviceType := 'CDAudio';
lpstrElementName := PChar(S);
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
IF Res<>0 Then exit;
DeviceID:=OpenParm.wDeviceID;
try
Res:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
IF Res=0 Then exit;
Result:=True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;


end.

[Fellics{новичок}]

А зачем такой большой код??? можно же реализовать открытие и закрытие дисковода в гораздо меньшем коде, достаточно будет нажеть на кнопку.

[hoza_syl]

Этот код будет работать при наличии двух и больше CD-ROM -ов.