線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1543
推到 Plurk!
推到 Facebook!

我如何控制光碟機開關呢

尚未結案
bcb902146
一般會員


發表:67
回覆:33
積分:22
註冊:2002-07-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-09-22 19:58:27 IP:61.70.xxx.xxx 未訂閱
我如何控制光碟機開關呢 就是用兩個button一個開啟的一個關閉的 我該如何寫 劉維翔
------
劉維翔
turboted
版主


發表:95
回覆:754
積分:452
註冊:2002-07-23

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-09-22 20:33:47 IP:61.216.xxx.xxx 未訂閱
可以使用MCI 的API ....比較方便..直接叫用..請查MSDN 也可以使用ATAPI COMMAND ....比較麻煩...要用到ASPI
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-09-23 07:37:16 IP:211.22.xxx.xxx 未訂閱
以下是 Delphi 的用法, BCB 就不知了
uses 
  MMSystem;     { open CD-ROM drive; returns 0 if successfull } 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  mciSendString('set cdaudio door open wait', nil, 0, handle); 
end;
  
{ close the CD-ROM drive; returns 0 if successfull }
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  mciSendString('set cdaudio door closed wait', nil, 0, handle); 
end;
另外, 沒找到可以控制有兩台 CD-ROM 的方法。 :)
-- Everything I say is a lie.
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-09-23 08:04:27 IP:61.219.xxx.xxx 未訂閱
BCB的CD-ROM開關控制法請見這一篇: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20511 ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
系統時間:2017-10-19 15:21:12
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!