Открытие и закрытие нескольких приводов CD-ROM :: Статьи по Delphi - Iguana Software

This version of the page http://igp.org.ua/articles/a108/ (0.0.0.0) stored by archive.org.ua. It represents a snapshot of the page as of 2007-02-18. The original page over time could change.

Открытие и закрытие нескольких приводов CD-ROM :: Статьи по Delphi - Iguana Software - IGP.ORG.UA

Поиск по базе статей :

Изменено минимальное разрешение сайта на 1024x768
Подробнее...

Вспоминаем старый добрый DOS и времена 80-х! ;)
Подробнее...

Рекомендуем книгу!

Orig:http://www.bambook.com/book1/images/natasha401pg.jpg

Delphi 2006 на примерах (+ CD-ROM)

Изложены основы программирования в среде Borland Delphi 2006 для .NET и Win32. На практических примерах рассмотрены основные приемы работы в среде Delphi, методика составления программ и основные компоненты. Подробно описаны все этапы создания приложений...

Что касается вопроса "Открытие и закрытие привода CD-ROM", то при наличии более одного CD-ROMа в системе, рекомендую воспользоваться следующими функциями:

//                  ____       _          ______            __
            //                 / __ \_____(_)   _____/_  __/___  ____  / /____
            //                / / / / ___/ / | / / _ \/ / / __ \/ __ \/ / ___/
            //               / /_/ / /  / /| |/ /  __/ / / /_/ / /_/ / (__  )
            //              /_____/_/  /_/ |___/\___/_/  \____/\____/_/____/
            //
            (*******************************************************************************
            * DriveTools 1.0                                                               *
            *                                                                              *
            *                 (c) 1999 Jan Peter Stotz                                     *
            *                                                                              *
            ********************************************************************************
            *                                                                              *
            * If you find bugs, has ideas for missing featurs, feel free to contact me     *
            *                           jpstotz@gmx.de                                     *
            *                                                                              *
            ********************************************************************************
            * Date last modified:   May 22, 1999                                           *
            *******************************************************************************)

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.

Прислал Vadim Petrov.