Eject i Close Tray

[ stameni @ 08.01.2010. 22:27 ] @

Potrebno je da iz aplikacije odradim Eject i Close Tray CD uređaja. Kako se to radi? Da li postoji neki API?

[ savkic @ 08.01.2010. 23:22 ] @

> Potrebno je da iz aplikacije odradim Eject i Close Tray CD uređaja. Kako se to radi? Da li postoji neki API?

function OpenCloseDrive(const ADrive: Char): Boolean;

Code:

  if mciSendString(PChar(Format('open cdaudio!%s: alias driveY', [ADrive])), nil, 0, 0) = 0 then
  begin
    Result := mcisendstring('set driveY door open', nil, 0, 0) = 0;
    mcisendstring('set driveY door closed', nil, 0, 0);
    mciSendString('close all', nil, 0, 0);
  end;