如何用程序实现光驱的弹入弹出？

如题。

解决方案 »

  1.   


    ---- 1、如何控制CDROM开关？ ---- 这可以利用MCI（Media Control Interface）函数中的mciSendString（）来实现，MCI可以简单地看作是一组用来控制多媒体设备的函数，这些函数包含在动态连接库MMSYSTEM.DLL中，该库文件位于Windows3.x、Windows 95/98或Windows NT的SYSTEM子目录中。 打开CDROM门： 
    mciSendString('Set cdaudio door 
    open wait', nil, 0, handle); 
    关闭CDROM门： 
    mciSendString('Set cdaudio door 
    closed wait', nil, 0, handle); ---- 为了使用这个函数，记住在单元的USES子句中，一定要包含MMSystem单元。
      

  2.   

    打开光驱
    　　procedure Tform1.OpenCDRomClick(Sender: TObject);
    　　begin
    　　mciSendString('Set cdaudio door open wait', nil, 0, handle);
    　　end; 
    关闭光驱
    　　procedure Tform1.CloseCDRomClick(Sender: TObject);
    　　begin
    　　mciSendString('Set cdaudio door closed wait', nil, 0, handle);
    　　end;
    另外先在uses后加上MMSystem 
      

  3.   

    我看到一本书上是这个函数：mciSendString(),但是写了之后没什么反应。怎么写？