轻松控制开始菜单中的“文档”
在Visual Basic 5.0中要实现对Windows95任务栏的开始菜单中的“文档”内容的控制,通过调用Win32 API中的SHAddToRecentDocs函数我们就可以轻松地做到这一点。SHAddToRecentDocs函数原型如下:
Private Declare Sub SHAddToRecentDocs Lib ″shell32.dll″(ByVal uFlags As Long,ByVal pv As String)
使用SHAddToRecentDocs,我们可以任意添加自己需要的文件名到“文档”中,或删除“文档”中的全部文件名。如果我们把pv设置为一个空字符串,“文档”中就为空,如果pv是一个带全路径文件名的字符串,那么“文档”中将添加该文件名。
让我们一起来实践一下吧:
1.首先在VB5中创建一个新的工程,窗体使用缺省值Form1。
2.在Form1窗体中加入两个Commandbutton按钮,名为Command1和Command2。
3.在Form1窗体的通用声明中加入如下代码:
Const SHARD_PATH=2
Private Declare Sub SHAddToRecentDocs Lib ″shell32.dll″_
(ByVal uFlags As Long,ByVal pv As String)
4.在Command1的Click事件中加入如下代码:
Private Sub Command1_Click()
Dim AddNewFile As String
AddNewFile=″c:\windows\calc.exe″
Call SHAddToRecentDocs(SHARD_PATH,AddNewFile)
End Sub
5.在Command2的Click事件中加入如下代码:
Private Sub Command2_Click()
Call SHAddToRecentDocs(SHARD_PATH,vbNullString)
End Sub
运行程序,单击Command1发现Windows95任务栏的开始菜单中的“文档”内容添加了一个名为calc的文件,单击Command2你会发现Windows95任务栏的开始菜单中的“文档”内容全部没有了。