Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Eject i Close Tray

[es] :: Pascal / Delphi / Kylix :: Eject i Close Tray

[ Pregleda: 1556 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

stameni
Ivan Stamenković

Član broj: 6739
Poruke: 538



+9 Profil

icon Eject i Close Tray08.01.2010. u 22:27 - pre 173 meseci
Potrebno je da iz aplikacije odradim Eject i Close Tray CD uređaja. Kako se to radi? Da li postoji neki API?
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Eject i Close Tray08.01.2010. u 23:22 - pre 173 meseci
> 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;

 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Eject i Close Tray

[ Pregleda: 1556 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.