> 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;