CD-привод

[BaD RaNDoM]

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

[ViNT]

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

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.

[BaD RaNDoM]

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

[HolyDel]

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