=
OpenDialog1->FileName
Edit1->Text
=
ExtractFileName(PathFileName)
Edit2->Text
=
PathFileName
TIcon
*Icon
WORD
IconIndex
Icon
=
new
TIcon//问题出在这一步,你没有为Icon申请一个地址。记得要释放
Icon->Handle
=
ExtractAssociatedIcon(Application->Handle,PathFileName.c_str(),
&IconIndex)
ListView1->LargeImages->AddIcon(Icon)
//另外,ListView1的LargeImage属性要确实连接得有TImageList控件,否则也没有空间装载AddIcon()函数也会失败。
CListView有个GetListCtrl()-------------------------
不好意思, 看错你的题目了.
如果你是用了CListView, 可以用GetListCtrl()获取ListCtrl, 对话框程序, 从"工具"里加一个ListControl就是了. 那个就是你要的.
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)