获得文件图标并显示在一个Image上（BCB）

最新推荐文章于 2014-08-19 09:39:22 发布

wellerweldon

最新推荐文章于 2014-08-19 09:39:22 发布

阅读量762

点赞数

文章标签： image file

本文链接：https://blog.csdn.net/wellerweldon/article/details/1766448

版权

void __fastcall TForm1::GetIcon(AnsiString FileName)
{
   SHFILEINFO sfi;
   SHGetFileInfo(
                  FileName .c_str(),
                  FILE_ATTRIBUTE_NORMAL,
                   & sfi,
                   sizeof (SHFILEINFO),
                  SHGFI_ICON
                );
   TIcon * picon = new TIcon();
   picon -> Handle = sfi.hIcon;
   Image1 -> Canvas -> Pen -> Color = clWhite;

   Image1->Canvas->Brush->Color = clWhite;
   Image1 -> Canvas -> Rectangle( 0 , 0 , 32 , 32 );
   Image1 -> Canvas -> Draw( 0 , 0 , picon );
   DestroyIcon( sfi.hIcon );
   delete picon;
}