摘要：建立一个标准EXE新工程，在窗体上添加一个Listbox和一个Text控件。 然后在窗体中粘贴下面代码：（窗体代码） Option Explicit Private Sub Form_Load() List1.AddItem "使用鼠标右键单击这里"End Sub Private Sub List1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Dim cMenu As cPopupMenu Dim ret As Long If Button = vbRightButton Th 阅读全文
为什么用Ghost备份后会有两个文件?
2004-07-04 20:53 by 电脑人生, 827 阅读, 0 推荐, 收藏,
摘要：今天用Ghost备份WIN2000后，发现有两个文件，一个是D.GHO，另外一个则是D0000001.GHS。为什么呢？我研究后发现： Ghost镜像文件最大只支持到2G，如果超过了2G的话，大于2G的部分Ghost就把它存储为一个GHS文件。 我的D:盘有3.93G，备份后大于2G，所以多出了文件 D0000001.GHS。 你要是碰到这个问题，就不会丈二和尚摸不着头脑了。^_^ 阅读全文
为光驱右键菜单添加“关闭”功能菜单
2004-07-03 16:43 by 电脑人生, 338 阅读, 0 推荐, 收藏,
摘要：在微软的系统中，光驱的弹出菜单只有“弹出”命令，没有“关闭”命令。这让我们这些“懒惰”的人不爽，下面就和我一起动手解决这个不“爽”的问题。 第一步： 打开记事本，粘贴如下代码，看不懂，不要紧，这只是个脚本而已，无它。 Set Obj=CreateObject("WMPlayer.OCX.7")Set CD=Obj.CDROMCollectionIf CD.Count>=1 then For i=0 to CD.Count-1 CD.Item(i).Eject Next For i=0 to CD.Count-1 CD.Item(i).Eject NextEnd If 阅读全文
锁定光驱在Win2000上的实现
2004-07-03 15:48 by 电脑人生, 174 阅读, 0 推荐, 收藏,
摘要：最近看到很多朋友在讨论如何锁住光驱的问题,但是没有一个结果。 趁着周末闲，写出代码和大家一起分享。 新建一个工程，在窗体上加入两个按钮，粘贴以下程序，看看效果怎么样？^_^ 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 阅读全文
怎样得到光驱的盘符?
2001-12-26 08:32 by 电脑人生, 194 阅读, 0 推荐, 收藏,
摘要：Option ExplicitPrivate Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _ (ByVal nDrive As String) As Long'GetLogicalDriveStrings-->获取一个字串,其中包含了当前所有逻辑驱动器的根驱动器路径Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogical 阅读全文
浙公网安备 33010602011771号