[讨论]用DOS命令弹出光驱

andysky

不知大家对DOS是否感兴趣?

出个题目,用DOS命令弹出光驱,请用最少的代码完成.

向您问好

andysky大师是DOS专家，可俺是低家[em04]

向您问好

哦，对了，以前我有现成的例子：一句声明、一句弹出光驱的代码

在EXCEL 中打开 光驱的代码：
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
Sub OpenCDDoor()
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub

[em04]

向您问好

用excel收回关闭光驱：

Sub CloseCDDoor()
mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub

andysky

还不错,只是声明变量较多.

用DOS则简单一点.

gxihome

learning...

dj-1621

EJECT