ITPub博客

首页 > IT职业 > IT生活 > attention :: 怎 样 打 开 或 关 闭 CD-ROM (转)

attention :: 怎 样 打 开 或 关 闭 CD-ROM (转)

原创 IT生活 作者:worldblog 时间:2007-12-06 09:30:08 0 删除 编辑
attention :: 怎 样 打 开 或 关 闭 CD-ROM (转)[@more@]

如果你想通过VB打开或者关闭CD-ROM,你可以向windows Multimedia DLL发出一条相关的命令请求,但是你必须先声明DLL:

在模块文件中加入以下代码:

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

以下是打开CD-ROM的过程代码:

retvalue = mcisendstring("set CDAudio door open", _

returnstring, 127, 0)

关闭CD-ROM用以下代码:

retvalue = mcisendstring("set CDAudio door closed", _returnstring, 127, 0)

 


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-988949/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2405335