نکات برنامه نویسی در دلفی

[Keramatifar]

با استفاده از این فانکشن میتونید در هر نوع سیدی درایوی رو باز و بسته کنید
در اثر فشارهای مکرر دوستان من ترجمه فارسی توضیحات رو هم به کدها اضافه کردم

uses

  MMSystem;



procedure TForm1.Button1Click(Sender: TObject);

begin

{/باز کردن سیدی رام: در صورت موفقیت 0 برمیگرداند/}

 {/ open CD-ROM drive; returns 0 if successfull /}

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



  {/ close the CD-ROM drive; returns 0 if successfull /}

{/بستن سیدی رام: در صورت موفقیت 0 برمیگرداند/}

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

end;

اینجانب بدینوسیله آمادگی پذیرش هر نوع انتقاد، راهنمایی و پیشنهاد را اعلام میدارم ...