編程實現自動彈出和關閉CD托盤

2019-11-17 05:12:20

字體：大中小

來源：轉載

供稿：網友

　　你肯定問過這個問題：我如何編程實現自動彈出和關閉CD托盤，而不必我用手按開關？好，本文就想談一談這個問題。

　　你們一定對Delphi的TMediaPlayer組件比較熟悉，它是一個相當出色的多用途的多媒體組件，但是美中不足的是：假如CDROM光驅的倉門打開就不能自動關閉。而且不幸的是，TMediaPlayer的方法和屬性中沒有解決這個問題的辦法，所以我們不得不求助于Windows API，具體一些就是使用MMSystem.pas文件，另外一件需要注重的事是：我們可以單獨調用Windows API函數，但是TMediaPlayer做了一些內部處理，所以我們就不必擔心我們是否使用了組件。所以本例中使用了TMediaPlayer。

　　第一步新建一個工程，然后把一個TMediaPlayer 和 TButton拖到它上面。

　　第二步在窗體的uses語句中添加一個MMSystem聲明。

　　第三步設置TMediaPlayer的AutoOpen屬性為真，設置DeviceType屬性為dtCDAudio，除此之外我們還可以關閉EnabledButtons屬性的BTEject選項，因為我們將使用代碼來完成這個功能。

　　第四步在某些應用程序中，我還要使用到數據CD，所以我也要設置Visible屬性為假，讓我的按鈕做開關倉門的動作。

　　第五步就是在按鈕的Onclick 事件中添加下面的代碼：

PRocedure TForm1.Button2Click(Sender: TObject);
begin
with MediaPlayer1 do
if (MediaPlayer1.Mode = mpOpen) then
mciSendCommand(MediaPlayer1.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0)
else
mciSendCommand(MediaPlayer1.DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
end;

　　注重，我們使用了mciSendCommand函數，在Windows中，每個東西都是被消息控制，在設備控制方面，mciSnedCommand與windows的WndProc非常相似，都象是一個消息分發器，提供給設備了消息類型、消息標志、消息參數以及你所使用的方法。假如您想了解更具體的信息的話，請您參閱幫助文件。