VB代码弹出光盘

来源：百度知道 编辑：UC知道 时间：2024/07/01 22:25:45
我做了一个光碟
里面有我用VB做的一个"abc.exe"
每当放进光碟
"abc.exe"就自动运行的

我希望建立一个按钮,写上代码
当点击这个按钮时.关闭"abc.exe"并弹出"abc.exe"所在的光驱

一般的代码基本都是弹出默认光驱.但我家有俩个光驱
我希望做到的是弹出"abc.exe"所在的光盘驱动器

谢谢
stmg0804.帮我把代码写出来可以吗.我不会的..

呵呵，小意思，代码如下：
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim tMsg As String * 255
'以上是声明
'以下是程序
Private Sub Command1_Click()'这个是你说的那个弹出按钮
Dim cdPath As String'定义路径
cdPath = Left(App.Path, 2)'这个是光驱的盘符，因为你是由光盘上的程序关闭，所以程序所在的位置就是光驱的位置喽~
mciSendString "open " & cdPath & " type cdaudio alias cd wait shareable", 0&, 0, 0'应用路径
mciSendString "set cd door open wait", tMsg, 255, 0'弹出光盘
End Sub

楼主可以把上面的cdPath更换为你所在光驱盘符试试（不带\的）如果有问题，发留言给我。

Dim ps
Dim wmp, cdrom, z As Integer, DriveID As String
'枚举进程
For Each ps In GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_ '循环进程
If LCase(ps.