delphi編程實現彈出、關閉CD-ROM驅動器

　　如果你想做一個CD播放器的話那本技巧一定少不了這是一個控制CDROM驅動器門彈出和關閉的方法首先需要在uses部分加入mmsystem接著增加兩個TButton按鈕在按鈕事件裡寫入下列語句記住在調用完畢後一定要顯示或判斷returnstring要不程序將出錯

　　procedure TFormButtonClick(Sender: TObject);
　　var returnstring:pchar;
　　begin
　　//彈出
　　returnstring:=驅動器打開錯誤;
　　mciSendString(set CDAudio door open returnstring );
　　labelCaption :=returnstring;
　　end; procedure TFormButtonClick(Sender: TObject);
　　var returnstring:pchar;
　　begin
　　//關閉
　　returnstring:=驅動器關閉錯誤;
　　mciSendString(set CDAudio door closed returnstring );
　　labelCaption :=returnstring;
　　end;

From:http://tw.wingwit.com/Article/program/Delphi/201311/24708.html