想把檔案總管中的目錄圖示換成自已設計的圖示，不知在delphi中要如何實現，謝謝。

其实说白了就是在目录下面写一个名称为DESKTOP.INI的配置文件，再将目录属性设定为系统属性即可。    临时写的一个函数，可以参考一下， 在我的机器上通过。    

function ChangeDirectoryIcon(sDirPath, sIconPath, sTip:String):Boolean;
//sDirPath     修改目录路径
//sIconPath    图标路径
//sTip         自己加的说明
begin
  if Not DirectoryExists(sDirPath) then //目录不存在就退出
  begin
    Result := False;
    Exit;
  end;
  With TStringList.Create do
    try
      try
        Add('[.ShellClassInfo]') ;
        Add('IconFile = ' sIconPath) ;
        Add('InfoTip = ' sTip) ;
        SaveToFile(IncludeTrailingPathDelimiter(sDirPath) 'Desktop.ini');
        SysUtils.FileSetAttr(sDirPath,SysUtils.faReadOnly) ;
        SysUtils.FileSetAttr(IncludeTrailingPathDelimiter(sDirPath) 'Desktop.ini',
        SysUtils.faSysFile Or SysUtils.faHidden) ;
        Result := True;
      except
        Result := False;
      end;
    finally
      Free;
    end;
end;

感謝大大，我在2000下試不太出來，不知是不是給的.ico有問題， 還有就是我希望能把所有的目錄圖示都換掉，你提供的這個方法是不是一定要每個目錄都特別去設定才會變更圖示，如果是這樣，可能就沒辦法滿足我的需求，我希望所有目錄圖示，都能一次變更。 還有這個ico檔不知是要傳入16x16，還是32x32的ico呢，謝謝