在程序中如何打开和关闭光驱门

王朝other·作者佚名  2008-05-18
窄屏简体版  字體: |||超大  

API函数声明如下:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

' 调用时的代码如下

Dim Ret As Long

Dim RetStr As String

'打开光驱门

Ret = mciSendString("set CDAudio door open", RetStr, 0, 0)

'关闭光驱门

Ret = mciSendString("set CDAudio door closed", RetStr, 0, 0)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航