Cd Sürücüyü Kapatıp Açmak

uses MMSystem; // Ac procedure OpenDoor; begin mciSendString(‘Set cdaudio door open’, nil, 0, 0); end; // Kapat procedure CloseDoor; begin mciSendString(‘Set cdaudio door closed̵...