باز و بسته کردن CD درایو

[hamed_pora]

من حامدم شما رو به خدا یکیتون به من بگه که من چه جوری میتونم از طریق برنامه نویسی با دلفی
CD درایو رو باز و بسته کنم :)

[hamed_pora]

[b]تو رو به خدا جواب بدین :cry:

[saeed_d]

دوست عزیز سلام
بهتر بود یه تاپیک جدید برای سوالت باز می‌کردی. اما به هر حال کد زیر را امتحان کن.


procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, Handle);
end;

[محمد حسین صمدیان]

من یه ئبار تو یک فلاپی راه انداز داس(نصب) یک فایل EXE دیدم که اینکار رو میکرد.میتونی از اون استفاده کنی.
دنبالش بگرد پیدا میکنی.

[یعقوب]

سلام
اگه دو تا درایو سی دی داشتیم چی؟
:wink:

[babak_delphi]

همین کدی که saeed_d نوشته رو من قبلا استفاده کردم
خیلی خوب جواب می ده

[msseng]

دوست عزیز سلام
بهتر بود یه تاپیک جدید برای سوالت باز می‌کردی. اما به هر حال کد زیر را امتحان کن.


procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, Handle);
end;



با تشکر

ولی این دستور به یک unit احتیاج داره. اون رو هم معرفی کنید :mrgreen:

[vcldeveloper]

ولی این دستور به یک unit احتیاج داره. اون رو هم معرفی کنید


uses
MMSystem;