熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

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

2013-11-23 17:34:31  來源: Delphi編程 

  如果你想做一個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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.