一个可以显示历史的菜单 Option Explicit Dim main As New main_frm Public max_index As Integer Public myindex As Integer Private Sub close_Click() On Error Resume Next '循环语句 For Each main In Forms If main.MDIChild = True Then Unload main End If Next Dim FNum As I
我的这个绝对可用，比网上流传的哪个好的多，哪个有很多Bug http://www.lupaworld.com/tutorial-view-aid-9612.html 许多Windows应用程序都具有在文件选单中显示历史文件的功能,这使用户很容易再次访问这些文件。笔者利用Borland C++ Builder（BCB）提供的TRegedit类，成功地在注册表中实现了上述功能。
Listary 是一款 Windows 文件浏览增强工具，为 Windows 资源管理器增加智能命令、最近文档以及收藏功能。文件小，功能强大。 秒杀系统自带搜索功能！！ 它是一款非常优秀的 Windows 文件浏览和搜索增强工具，可以为你 Windows 的「文件浏览对话框」、「资源管理器」等增加非常方便的文件快速定位、实时全盘搜索、常用文件夹收藏、打开历史、快速切换到已打开的路径、快捷右键菜单等一系列非常非常实用和高效的功能，它能将 Windows 的便捷性提高到一个新的高度！
Listary Pro是一款非常优秀的Windows文件浏览和搜索增强工具，可以为你 Windows 的「文件浏览对话框」、「资源管理器」等增加非常方便的文件快速定位、实时全盘搜索、常用文件夹收藏、打开历史、快速切换到已打开的路径、快捷右键菜单等一系列非常实用和高效的功能，有了它能将你 Windows的便捷性提高到一个新的高度！
