delphi TtreeView.TreeNode 如何实现挂载本机图标
某软件 TreeView时 发现不是封装的图标.而是动态调用使用者本身的图标.
这个是如何做到的.



[解决办法]
调用以上函数:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
h : HIcon;
begin
if OpenDialog1.Execute then
begin
h := GetFileIcon(OpenDialog1.FileName,False);
image1.Picture.Graphic:=nil;
DrawIcon(image1.Canvas.Handle,0,0,h);
end;
end;