Problem z wysuwanie cd

Po co właściwie jest ci potrzebny ten handle? :D

mciSendString('Set cdaudio door open wait',nil,0,0);

Włąsciwie to nie wiem, dopiero się uczę, ale idzie mi bardzo dobrze. :) W każdym razie wielkie dzięki.

Jeszcze jedna sprawa, repeat
MciSendString('Set cdaudio door open wait', nil,0,0);
Sleep(800);
MciSendString('Set cdaudio door close wait', nil,0,0);
Dec(X);
until X = 0;

Wszystko się kompiluje bez najmniejszego błędu, ale program wysuwa tylko tackę a nie chce jej wsunąć z powrotem tak jakby nie widział kodu. Co jest nie tak?? [???]

Dziadek napisał(a)

Wszystko się kompiluje bez najmniejszego błędu, ale program wysuwa tylko tackę a nie chce jej wsunąć z powrotem tak jakby nie widział kodu. Co jest nie tak?? [???]

A pomyslałeś trochę... ?? ;)
Przcież musisz dać więcej czasu na reakcję systemu. Tacka nie otwiera ci się w 1 sekunde.

Możesz zrobić tak:

  MciSendString('Set cdaudio door open wait', nil,0,0);
  Sleep(2000);
  Application.ProcessMessages;
  MciSendString('Set cdaudio door close wait', nil,0,0);
  Dec(X);
  until X = 0;

To zdecydowanie nie o to chodzi.
1: To co napisałeś i tak nie działa, cd się wysuwa ale nie wsuwa.
2: Pisałem już podobny program robiąć Sleep(900) i działało, tylko, że nie pisałem tego w edytorze projektu. Ktoś wie co jest nie tak?? [???]

Jest błąd, powinno być:

mciSendString('set cdaudio door closed wait',nil,0,0);

zgubiłeś literkę "d" w "closed" ;P