اطلاعات کامپیوتری و ...

ابتدا روی فرمتون دو کلید بگذارید ، کپشن آنها رو به Open و Close تغییر بدهید :

برای انجام این کار نیاز داریم که یونیت MMSystem را قابل استفاده کنیم برای این کار در زیر implementation می نویسیم :

Uses MMSystem;

برای کلید Open خط زیر را بنویسید:

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

و برای کلید Close هم خط زیر را بنویسید:

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