a000000 发表于 2009-6-21 14:18:35

个性图标制作小工具的问题

本帖最后由 a000000 于 2009-6-23 22:16 编辑

个性图标后找文件夹非常容易，比找字来的快的多，希望有高手帮忙用au3完善这个工具.

原工具批处理源码：

@echo off
@echo       =======                                                         =======
@echo                      欢迎使用文件夹个性图标制作小工具
@echo       =======                                                         =======   
@echo   首先将你喜欢的图标文件(.ico)重命名为1.ico 并放到你要制作的文件夹内
@echo ----------------------------------------------------------------------   
set a=
set/p a=输入要制作的文件夹的完整路径:
>%a%\desktop.ini echo [.ShellClassInfo]
>>%a%\desktop.ini echo IconFile=.\1.ico
>>%a%\desktop.ini echo Iconindex=0
attrib +s %a%
pause

希望有高手能修改成au3代码，并且把IconFile=1.ico改成自动从本文件夹里找可执行文件，如IconFile=QQ.exe来造福大家。

sxd 发表于 2009-6-21 16:14:24

很简单啊 就是在你要改的路径下 建立个
desktop.ini
字段名是 [.ShellClassInfo]
2个项目
IconFile=图标的位置
Iconindex=图标的序号,ico嘛肯定就是写0

然后把这个文件夹设置成系统属性



基本就是这样吧 我不懂bat 不懂如何设置文件夹图标 大概是这样

按照这样 你在学习下au3 写出来 不难

a000000 发表于 2009-6-22 13:21:37

希望高手继续帮忙....

kn007 发表于 2009-6-22 13:33:33

本帖最后由 kn007 于 2009-6-22 13:54 编辑

最后的要求就不帮你了If MsgBox(8484, "欢迎使用文件夹个性图标制作小工具", "说明：首先将你喜欢的图标文件(.ico)重命名为1.ico 并放到你要制作的文件夹内；好了，是否立即创建？",5) = 6 Then
If FileExists(@ScriptDir & "\desktop.ini ") then FileDelete(@ScriptDir & "\desktop.ini ")
FileOpen(@ScriptDir & "\desktop.ini ",1)
FileWrite(@ScriptDir & "\desktop.ini ","[.ShellClassInfo]"&@CRlf)
FileWrite(@ScriptDir & "\desktop.ini ","IconFile=.\1.ico"&@CRlf)
FileWrite(@ScriptDir & "\desktop.ini ","Iconindex=0"&@CRlf)
FileWrite(@ScriptDir & "\desktop.ini ",@CRlf)
FileClose(@ScriptDir & "\desktop.ini ")
FileSetAttrib(@ScriptDir & "\desktop.ini", "+S", 1)
MsgBox(64, "个性图标制作完成", "By kn007E-Mail : kn007@126.com",3)
Else
      Exit
EndIf

a000000 发表于 2009-6-23 15:59:56

还是不能完美解决啊

lynfr8 发表于 2009-6-23 17:00:35

想完美就自己学自己写
页: [1]
查看完整版本: 个性图标制作小工具的问题