关于 TreeView 如何象Windows中的资源管理器一样显示目录树?(50分)

关于 TreeView 如何象Windows中的资源管理器一样显示目录树?

>>

用 LMD 控件包把. delphi5.4u.ra use Netscape, Porxy

{------------------------------------------------------------------------------}
function TLMDBrowseDlg.ConvertPathToItemIDList(const aPath:String; ItemIDList: PItemIDList):Boolean;
var
shi:IShellFolder;
v1, v2:ULONG;
begin
result:=False;
if SHGetDesktopFolder(shi) = NOERROR then
try
if DirectoryExists(aPath) then
begin
shi.ParseDisplayName(0,nil,StringToOleStr(aPath), v1,ItemIDList,v2);
result:=true;
end;
finally
shi._Release;
end;
end;

是listview吧。
这种东西inprise自己就有例子。
看看delphi中的例子： demos/Virtual Listview

这个VIrtual listview的例子，在nt下没问题，但是在98下，
多列几次，系统资源迅速耗尽。也不知道为什么。搞得我现在
都不敢用让listview的各列使用不同颜色。

接受答案了.