Antin koodivinkissä ( https://www.ohjelmointiputka.net/koodivinkit/
X = mciSendString("Set CDAudio Door Close", "", 0, 0)
Eli vaihdoin vain open-sanan closeksi.. mitään ei kuitenkaan tapahtunut?! Onko jollain tarvittavia käskyjä siihin? Minulla on epäilymys, että se sulkeminen tapahtuu tuolla mciSendString-funktiolla..
Kokeilepa vaihtaa sana "Close" muotoon "Closed". Jos ei sittenkään toimi, syynä on varmaan se, ettei CD-asemassasi ole luukun sulkemismahdollisuutta, esim itselläni ei ole.
Aihe on jo aika vanha, joten et voi enää vastata siihen.