scrip Membuka dan menutup CD Drive

scrip  pemrograman turbo pascal Membuka dan menutup CD Drive

--> 

uses

  MMSystem;

  { Membuka CD Drive }

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

  { Menutup CD Drive }

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

Tweet