在DELPHI中如何更改文件夹图标？

Question

这好象是windows自己的问题
在你的文件夹下加一个desktop.ini
你可以参考回收站目录下的desktop.ini,desktop.ini是隐藏的

Answer 1

回收站目录
c:\recycled
d:\recycled
.....

Answer 2

在那文件夹下创建一个名为 "destop.ini" 的文件，内容可以参考下面几个例子：[.ShellClassInfo]
InfoTip=双引擎优秀杀毒软件金山毒霸所在目录
IconIndex=3
IconFile=KAV9X.EXE
又一个例子：
[.ShellClassInfo]
InfoTip=中文阅读软件ReadBOOK所在的目录
IconIndex=4
IconFile="D:\READBOOK\READBOOK.EXE"
//IconIndex指的是IconFile 里的第几个图标资源
//////////////代码
var
    F : TextFile;
begin
    AssignFile(F, 'c:\aaa\destop.ini');  //例如设置 c:\aaa 目录
{$I-}
    Rewrite(F);
{$I+}
    if IOResult <> 0 then
    Begin
       ShowMessage('创建文件失败：' + FileName);
       exit;
    end;    Writeln(F,'[.ShellClassInfo]');   //开始写文件了，
    Writeln(F,'IconIndex=3');
    Writeln(F,'IconFile=KAV9X.EXE');
    CloseFile(F);
    
end;

Answer 3

我试了，不好使呀！！！
为什么呢？
我用的是WINME

Answer 4

to loveandhate(小强) 
只要把文件夹属性设为系统或只读就可以了,不必重启