如何 ShellTreeView1 控件内的部分目录删除, 如回收站? 再加上自定的目录? 希望前辈指教 ( 积分: 100 )

如何 ShellTreeView1 控件内的部分目录删除, 如回收站? 再加上自定的目录?

如何 ShellTreeView1 控件内的部分目录删除, 如回收站? 再加上自定的目录?

用TreeView1+imagelist
根据文件类型提取图标.
function GetIconFromExt(ext:string;var filename:string;var index:integer):boolean;
var
reg:tregistry;
src:string;
begin
reg:=tregistry.create;
reg.RootKey:=hkey_classes_root;
result:=reg.OpenKey('.'+ext,false);
if result then
begin
src:=reg.ReadString('');
reg.CloseKey;
if reg.OpenKey(src+'/defaulticon',false) then
begin
src:=reg.ReadString('');
if pos('%1',src)<>0 then exit;
filename:=copy(src,0,pos(',',src)-1);
index:=strtoint((trim(copy(src,pos(',',src)+1,length(src)-pos(',',src)))));
end;
end;
reg.Free;
end;

1. 我拿了JamShellTree 控件来看它的源码, 但因为是初学, 不知道该如何去分析这个控件?
2. 像JamShellTree 这种软件, 是如何将计算机文件加到treeview 呢?
希望前辈指教, 谢谢...

看一个控件关键是要对delphi控件结构有个基本得了解
这样才能找出哪些是继承的例行公事，哪些是原创的核心技术

建议去看delphi高手突破

Delphi深度探索第二版里有这个东西