弹出和关闭光驱仓门.frm

Windows API函数,希望大伙有用哦

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   780
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3105
   LinkTopic       =   "Form1"
   ScaleHeight     =   780
   ScaleWidth      =   3105
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "关闭仓门"
      Height          =   315
      Left            =   1590
      TabIndex        =   1
      Top             =   210
      Width           =   1125
   End
   Begin VB.CommandButton Command1 
      Caption         =   "弹出仓门"
      Height          =   315
      Left            =   390
      TabIndex        =   0
      Top             =   210
      Width           =   1125
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 Sub Form_Load()
'打开设备并设置设备别名
   mciSendString "Open cdaudio alias CDRom ", vbNullString, 0, 0
End Sub
' 弹出光驱仓门
Private Sub Command1_Click()
   mciSendString "Set CDRom door open", vbNullString, 0, 0
End Sub
' 关闭光驱仓门
Private Sub Command2_Click()
   mciSendString "Set CDRom door closed", vbNullString, 0, 0
End Sub