VPF::Открытие и закрытие CR-ROM при наличии более одного CR-ROM

Pakshin A. S.

Дата 8.11.2004, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: нет
Всего: 61

При наличии более одного CD-ROM в системе рекомендуется обратиться к следующим функциям:

Код

unit DriveTools;

interface

function CloseCDDrive(Drive: char): boolean;
function OpenCDDrive(Drive: char): boolean;

implementation

uses
 Windows, SysUtils, MMSystem;

function OpenCDDrive(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
   begin
    DeviceID:=OpenParm.wDeviceID;
    try
     Res:=mciSendCommand(DeviceID, mci_Set, MCI_SET_DOOR_OPEN, 0);
     Result:=Res <> 0
    finally
     mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm))
    end
   end
end;

function CloseCDDrive(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
   begin
    DeviceID:=OpenParm.wDeviceID;
    try
     Res:=mciSendCommand(DeviceID, mci_Set, MCI_SET_DOOR_CLOSED, 0);
     Result:=Res <> 0
    finally
     mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm))
    end
   end
end;

end.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »