鼠标右键单击光驱盘符，只有“弹出”菜单，怎么加入“关闭”菜单？

2004-06-11 08:54:12 471 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

STM8开发环境搭建（STVD + COSMIC）一、STM8开发IDE 1. STVD + COSMIC ST Visual Develop (STVD)只支持汇编开发，C语言开发需要再安装COSMIC，配套起来使用。 2. IAR IAR也可以用来开发STM8 下面介绍STVD + COSMIC的搭建方式二、环境搭建 1. STVD下载、安装直接从官网下载：https://www.st.com/en/development-tools/stvd-stm8.html 安装很简单，基本下一步往下点。 2. COSMIC下载、安装对于stm8可以使用3 阅读详情

鼠标右键单击光驱盘符，只有“弹出”菜单，怎么加入“关闭”菜单。

这里涉及到光驱的打开、关闭、快捷菜单等内容。关键是怎么做到像Winrar一样可以加入到右键菜单中！！！

...全文

基于资源预测的Agent弹性伸缩：在成本与响应延迟间寻找最佳平衡点手动伸缩：完全由运维人员人工调整副本数或服务器数量，效率极低，现在基本只用于极小规模的业务。反应式伸缩：基于当前实时监控指标触发伸缩规则，比如CPU利用率超过70%就加2个副本，是目前应用最广泛的方案，典型代表是K8s HPA、KEDA。预测式伸缩：基于历史时序数据预测未来的负载，提前进行伸缩，解决反应式伸缩的滞后性问题，典型代表是AWS Predictive Scaling、阿里云预测式HPA。智能Agent伸缩。阅读详情

qqyong

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

圣骑士 2004-06-15

打赏
举报

该注册的话需要更改那些主键，谁说一下，谢谢

pigpag 2004-06-14

打赏
举报

//晕，没看清楚，和最后一个本质是一样的，只是声明函数不一样。 :(

4242，所以说没有纰漏嘛~

qqyong 2004-06-14

打赏
举报

我的问题关键不在这里呀，而是加入右键菜单

pigpag 2004-06-12

打赏
举报

怎么都是针锋相对，一点纰漏都没有……

goodname008 2004-06-12

打赏
举报

晕，没看清楚，和最后一个本质是一样的，只是声明函数不一样。 :(

goodname008 2004-06-12

打赏
举报

确实经典！

我再补充个方法：

Option Explicit

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

Private Enum CDROMSwitch
OpenCDROM
CloseCDROM
End Enum

Private Sub Command1_Click()
OpenCloseCDROM OpenCDROM
End Sub

Private Sub Command2_Click()
OpenCloseCDROM CloseCDROM
End Sub

' 打开/关闭CDROM
' Action 为打开/关闭CDROM的动作
Private Function OpenCloseCDROM(ByVal Action As CDROMSwitch) As Boolean
OpenCloseCDROM = mciSendString("set CDAudio door " & IIf(Action = OpenCDROM, "open", "closed"), "", 127, 0)
End Function

xrenwu 2004-06-11

打赏
举报

牛啊，顶

yinweihong 2004-06-11

打赏
举报

老大的总是经典的
呵呵
收藏~

lihonggen0 2004-06-11

打赏
举报

修改注册表可以添加到右键菜单中

lihonggen0 2004-06-11

打赏
举报

用API函数CDdoor 来控制光驱门的开和关

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

lihonggen0 2004-06-11

打赏
举报

Private Sub Form_Load()
Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdrom = wmp.cdromCollection
If cdrom.Count >= 1 Then '（该句用来判断你的系统中装了多少个光驱）
For z = 0 To cdrom.Count - 1
cdrom.Item(z).Eject
Next
For z = 0 To cdrom.Count - 1
cdrom.Item(z).Eject
Next
End If
End Sub

lihonggen0 2004-06-11

打赏
举报

不知为什么，在微软目前的操作系统中，光驱的命令菜单都是只有“弹出”命令，没有“关闭”命令。如果我们不想按光驱的按钮关闭弹出的托盘，就不得不依靠安装第三方软件来实现。其实，我们也可以用VBScript语句弥补这点不足。

关闭所有光驱

如果你的系统中安装了一个以上的光驱，那么打开记事本，输入以下代码：

Set wmp = CreateObject("WMPlayer.OCX.7")

Set cdrom = wmp.cdromCollection

If cdrom.Count >= 1 then '（该句用来判断你的系统中装了多少个光驱）

For z = 0 to cdrom.Count - 1

cdrom.Item(z).Eject

Next

For z = 0 to cdrom.Count - 1

cdrom.Item(z).Eject

Next

End If

注意将文件类型改为“所有文件”后，将文件保存为“乇账?vbe”,在桌面上为该文件建一个快捷方式，以后双击桌面上的快捷方式就可以关闭所有弹出的光驱。

关闭指定的光驱

以下语句可以让你关闭指定的光驱，例如要关闭第一个光驱，我们可以新建个一文本文件，输入以下代码：

Set wmp = CreateObject("WMPlayer.OCX.7")

Set cdrom = wmp.cdromCollection

cdrom.Item(0).Eject

同样将该文件保存为后缀为VBE的文件，命名为“close1.vbe”,以后双击该文件即可关闭你系统中的第一个光驱盘符。在以上语句里，item(0)中的“0”代表第一个光驱盘符，如果要关闭第二个光驱盘符，请将这里的“0”加1，依此类推，就可实现关闭指定的盘符了。

我们还可以将“关闭”添加到光驱的右键菜单中。方法是在注册表编辑器中依次展开[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Drive\shell ]分支，然后在右侧窗口中新建 “CloseCDROM”分支，进入该分区后，在右侧窗口双击“默认”，将其默认值修改为“关闭所有”；再点击“编辑→新建→项”，将新键重命名为“command”,把“默认”值修改为“C:\WINDOWS\System32\WScript.exe C:\关闭所有.vbe”（这里要将C:\改为“关闭所有.vbe”文件在你系统中保存的路径）。

用同样的方法可以将关闭指定光驱的命令加入光驱的右键菜单中。修改完毕后，关闭注册表就可在右键菜单中找到“关闭所有”和关闭指定盘符的命令。

qqyong 2004-06-11

打赏
举报

鼠标右键单击光驱盘符，只有“弹出”菜单，怎么加入“关闭”菜单？

相关推荐