forum.boolean.name - CD-привод

forum.boolean.name (http://forum.boolean.name/index.php)

- Delphi (http://forum.boolean.name/forumdisplay.php?f=66)

- - CD-привод (http://forum.boolean.name/showthread.php?t=5645)

Доброго всем времени суток!
Подскажите пожалуйста как можно открыть привод, только не первый по списку.
А то у меня стоит два привода (DVD и CD) открывается только DVD.
Подскажате Please-e-e!!!

Ответ: CD-привод

Например так:

Код:

function CDOpen(Drive: PChar): 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_OPEN, Flags, Longint(@OpenParm));

  end;

end;

Для открытия например дисковода H: нужно написать

Код:

CDOpen('H');

В uses нужно добавть mmsystem.

Re: CD-привод

ViNT спасибо за помощь.
А где можно инфу найти как работать с приводом в Делфе.

Ответ: CD-привод

вот хороший сайт о Delphi. ищи.
http://www.delphisources.ru/pages/faq.html