用C++ Builder编程提取图标资源
Windows提供了一个API函数ExtractIcon，它能从指定的exe、dll、icon及其它含有图标的文件中提取图标，其原型如下：
HICON ExtractIcon（
HINSTANCE hInst，
LPCTSTR lpszExeFileName，
UINT nIconIndex
）；
其参数意义如下：
hInst：进程句柄
lpszExeFileName：含有图标的文件名
nIconIndex：要提取的图标索引值，若nIconIndex=－1，则函数返回此文件所含的图标数目。
运行C＋＋ Builder，新建一工程，将此工程文件保存为icon.bpr，主窗口文件保存为main.cpp，向主窗口添加控件，主要控件有：快捷按钮SB_Open、图像控件Image1、编辑框Edit1、打开文件对话框OpenDialog1、保存图像对话框SavePictureDialog1、刻度条TrackBar1、状态条StatusBar1，如^41020402a^所示。
编辑框是用来显示需提取图标的文件名，在SB_OpenClick的OnClick事件中写入如下代码：
void __fastcall TForm1：：SB_OpenClick（TObject ＊Sender）
{
if（OpenDialog1－>Execute（））
{ //获得打开的文件名
FileName=OpenDialog1－>FileName；
//分解文件名并显示在Edit1框中
Edit1－>Text=ExtractFileName（FileName）；
TrackBar1－>Min=0；
//得到此文件所含的图标数目，并赋给TrackBar1－>Max
TrackBar1－>Max=（int）ExtractIcon（HInstance，FileName.c_str（），－1）；
TrackBar1－>Position=0；
//在状态条上显示图标数目
StatusBar1－>SimpleText=″此文件共含有图标″＋IntToStr（TrackBar1－>Max）＋″个″；
//index是一个全局变量，指示当前提取的图标索引值
index=TrackBar1－>Min；
//根据index值，得到当前的图标，将索引图标的句柄赋给Image1
//从而可以在Image1框中显示此icon
Image1－>Picture－>Icon－>Handle =ExtractIcon（HInstance，FileName.c_str（），index）； }
}
在刻度条TrackBar1的OnChange事件中写入如下代码：
void __fastcall TForm1：：TrackBar1Change（TObject ＊Sender）
{ //将刻度条的变化赋给全局变量index，并显示变化后的图标
index=TrackBar1－>Position；
Image1－>Picture－>Icon－>Handle =ExtractIcon（HInstance，FileName.c_str（），index）；
}
若要保存指定的icon，其代码如下：
void __fastcall TForm1：：TB_SaveClick（TObject ＊Sender）
{ if（SavePictureDialog1－>Execute（））
{ Image1－>Picture－>SaveToFile（SavePictureDialog1－>FileName）；}
}
若要保存此文件含有的所有图标，其代码如下：
void __fastcall TForm1：：TB_SaveAllClick（TObject ＊Sender）
{
AnsiString path，FileExt；
SavePictureDialog1－>FileName=″请选择保存路径″；
if（SavePictureDialog1－>Execute（））
{
path=ExtractFilePath（SavePictureDialog1－>FileName）＋″\\″；
FileExt=ExtractFileExt（SavePictureDialog1－>FileName）；
//循环保存每个图标，每个图标的索引值即为它的文件名
for（int i=0；i<TrackBar1－>Max；i＋＋）
{
Image1－>Picture－>Icon－>Handle=ExtractIcon（HInstance，FileName.c_str（），i）；
Image1－>Picture－>SaveToFile（path＋IntToStr（i）＋FileExt）；
}
}}
至于查看当前图标的上一个或下一个图标，其代码就很简单了：
//查看上一个图标
void __fastcall TForm1：：TB_PriorClick（TObject ＊Sender）
{ index－－；
TrackBar1－>Position－－；
Image1－>Picture－>Icon－>Handle =ExtractIcon（HInstance，FileName.c_str（），index）；
}
//查看下一个图标
void __fastcall TForm1：：TB_NextClick（TObject ＊Sender）
{
index＋＋；
TrackBar1－>Position＋＋；
Image1－>Picture－>Icon－>Handle =ExtractIcon（HInstance，FileName.c_str（），index）；
}
编译此工程文件并运行，一个版权属于你的图标提取器诞生了，欢迎与我探讨（ lmq@4y.com.cn ）。本程序在Win98，C＋＋ Builder5下运行通过。