最近看到很多朋友在讨论如何锁住光驱的问题,但是没有一个结果。 趁着周末闲，写出代码和大家一起分享。 新建一个工程，在窗体上加入两个按钮，粘贴以下程序，看看效果怎么样？^_^ Option ExplicitPrivate Const GENERIC_READ As Long = &H80000000Private Const FILE_SHARE_READ As Long = &H1Private Const FILE_SHARE_WRITE As Long = &H2Private Const OPEN_EXISTING As Long = 3Private Const
Option ExplicitPrivate Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _ (ByVal nDrive As String) As Long'GetLogicalDriveStrings-->获取一个字串,其中包含了当前所有逻辑驱动器的根驱动器路径Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogical
Copyright © 2005-2025 51CTO.COM 版权所有 京ICP证060544号
