龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

用VisualBasic设计个性化文件夹图标

时间:2009-12-30 15:42来源:未知 作者:admin 点击:
分享到:
抛弃Windows的默认图标吧,让自己的程序所在的目录拥有个性化的FolderIcon!其实作起来简单得很,实际上只需要一个Desktop.ini文件即可,下面我会从两个方面说明。 1.手动方式: 首先要在
抛弃Windows的默认图标吧,让自己的程序所在的目录拥有个性化的FolderIcon!其实作起来简单得很,实际上只需要一个Desktop.ini文件即可,下面我会从两个方面说明。
  
  1.手动方式: 
  
  首先要在需要改变的文件夹中创建一个Desktop.ini文件,例子如下:
  
  ->[.ShellClassInfo]
  ConfirmFileOp=0
  InfoTip=我自己的文件夹
  IconIndex=0
  IconFile=MyFolder.ico->

  解释:
  
  参数ConfirmFileOp设为0--防止用户在移动或删除此文件夹时弹出的“你正在删除系统目录”的警告。
  
  参数IconFile指定为将要改变的图标文件的位置,可以是Icon、Bmp、exe或者dll文件,上例中的图标文件也放置到同一目录中。
  
  参数IconIndex就可以指定文件的索引,如果此图标文件是Icon文件的话,IconIndex就设为0。
  
  参数InfoTip用来设定此Folder在Windows中的Tooltip。
  
  下一步打开CMD(命令提示符),输入:
  
  ->attrib si:MyFolder->

  i:MyFolder指的就是我要改图标的目录的路径。此项操作是让你的文件夹成为系统文件夹。
  
  好了,经过手动处理后现在的目录已经改变了风格。
  
  2.编程方式:
  
  这种方式是用我喜欢的VB来实现的,实现起来也同样Easy。
  
  只需要两个API函数,一个用来操作Ini文件的建立,另一个的功能等同于手动方式中的attrib s。
  
  ->OptionExplicit
  PrivateDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpStringAsAny,ByVallpFileNameAsString)AsLong
  PrivateDeclareFunctionPathMakeSystemFolderLib"shlwapi.dll"Alias"PathMakeSystemFolderA"(ByValpszPathAsString)AsLong
  
  PrivateSubForm_Load()
   '以下几步用于创建Desktop.ini文件
   '不存在ini文件时,会自己创建ini
   WritePrivateProfileString".ShellClassInfo","ConfirmFileOp","0",App.Path&"desktop.ini"
   WritePrivateProfileString".ShellClassInfo","InfoTip","我的文件夹因此而改变",App.Path&"desktop.ini"
   WritePrivateProfileString".ShellClassInfo","IconIndex","0",App.Path&"desktop.ini"
   WritePrivateProfileString".ShellClassInfo","IconFile","MyFolder.ico",App.Path&"desktop.ini"
   '让文件夹成为系统文件夹
   PathMakeSystemFolderApp.Path
  EndSub->

  需要进一步说明的是:
  
  ->WritePrivateProfileString".ShellClassInfo","IconFile","MyFolder.ico",App.Path&"desktop.ini"->

  可以改为:
  
  ->WritePrivateProfileString".ShellClassInfo","IconFile",App.EXEName&".exe",App.Path&"desktop.ini"->

  果你使用的是主窗口的图标的话,VB编译后的程序的图标的索引也是使用的0。->

精彩图集

赞助商链接