Potrebno je da iz aplikacije odradim Eject i Close Tray CD uređaja. Kako se to radi? Da li postoji neki API?
Eject i Close Tray
Zaključano
Zakačeno
> 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;
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;
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;
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html