Problem z wysuwanie cd

0

A mianowicie, biorę project--> view source dodaję do listy MMSystem i wpisuję taki kod MciSendString('Set cdaudio door open wait',nil,0,handle); i pokazuje mi undeclared Identifier handle. Co do ku**y jest źle??

0

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

mciSendString('Set cdaudio door open wait',nil,0,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?? [???]

0
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;
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?? [???]

0

Jest błąd, powinno być:

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

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1