利用API函数控制光驱的开和关
来源:互联网 发布:sql 数据库 编辑:程序博客网 时间:2024/04/30 00:53
源代码如下: —————————————————————————— Option Explicit '说明:CDdoor函数是安装WINDOWS时所自带的winmm.dll文件中包含的函数 Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 'CDOpen用来标示光驱开与关的状态 Dim CDOpen As Boolean Private Sub Command1_Click() On Error Resume Next '如果关闭则打开,并且按钮做相应变化 If CDOpen = False Then Call CDdoor("set CDAudio door open", 0, 0, 0) CDOpen = True Command1.Caption = "点击关闭光驱" Else '否则关闭 Call CDdoor("set CDAudio door closed", 0, 0, 0) CDOpen = False Command1.Caption = "点击打开光驱" End If End Sub Private Sub Form_Load() CDOpen = False Call CDdoor("set CDAudio door closed", 0, 0, 0) End Sub 'CDdoor函数是安装WINDOWS时所自带的winmm.dll文件中包含的函数,我们只须先加入如下的声明后就能引用这个API函数: 'Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _ '(ByVal lpstrCommand As String, _ String,这是控制命令参数 'ByVal lpstrReturnString As String, _ String,这是返回值 'ByVal uReturnLength As Long, _ Long,返回值长度参数 'ByVal hwndCallback As Long) As Long '引用的语法是:Call CDdoor("set CDAudio door closed", 0, 0, 0)用以关闭光驱门Call CDdoor("set CDAudio door open", 0, 0, 0) 用以打开光驱门 '程序中使用了一个布尔型变量来标示当前光驱门开与关的状态?如果配合检测光驱是否存在的函数一起使用, '此程序的通用性会更高。而关于检测驱动器信息的函数请参看 GetDriveType,GetLogicalDrives的用法。
- 利用API函数控制光驱的开和关
- c#控制显示器和光驱的开与关
- 用API函数控制光驱的开关(VB6/VB.net 示例)
- 键盘的开、关控制
- c/c++代码 No.15 用一个字节控制8个家电的开和关
- 用VC++编程控制计算机和光驱
- 用VC++编程控制计算机和光驱
- 编程控制光驱打开和关闭
- 利用ComObj 控制 Excel 的相关函数
- 利用OnAnimatorove函数控制人物的移动
- C#中调用系统API打开和关闭光驱
- 用VbScript控制光驱
- C#控制光驱开关
- VB中控制光驱
- 多光驱控制的简单功能的简单封装。
- mega128单片机控制光驱上的步进电机
- 光驱,软驱,USB的禁用和启用
- 光驱,软驱,USB的禁用和启用
- Win2K Kernel Hidden Process/Module Checker 0.1 (Proof-Of-Concept)
- 试一下这个BLOG怎么样
- Win2K/XP SDT Restore 0.2 (Proof-Of-Concept)
- 离散数学复习
- 一个浙江成功商人立下的22条规矩
- 利用API函数控制光驱的开和关
- AntiHookExec Version 1.0 (Anti API Hooking Proof-Of-Concept)
- 情理之中 - Macs do Windows
- Java Learning Path
- 把rpm包转成deb包的工具
- 日语新闻听力网站
- 今日上网随便看
- 英语、日语学习网站软件
- SAP OR MY ERP?