文/王斌

　　我們經常在網上看到有關提取圖標的共享軟件或免費軟件。喜歡編程的朋友們都在夢想自己能夠動手做一個！使用可視化編程利器C++Builder可使你制作這樣的軟件變得非常輕松。

　　建立工程文件

  
　　首先啟動C++Builder，新建一工程，在窗體上放置兩個控件：“抽取”按鈕SpeedButton1、“退出”按鈕SpeedButton2。設一個ListView控件用來瀏覽抽取的圖表信息、一個Image控件用來顯示當前的圖標信息和一個OpenDialog控件用來打開被選文件，它們的名稱均不必改動。為了美觀，讀者還可以根據需要增加其它控件，做適當的潤色。

　　取得和顯示圖標

　　雙擊SpeedButton控件，在Click事件中寫如下代碼：

　　　void_fastcall TForm1::SpeedButton1Click(TObject

　　�砈ender)

　　{

　　　TListItem�矻st;

　　　if(OpenDialog1-＞Execute())

　　//打開被提取圖標的文件

　　　{

　　　FileName=OpenDialog1-＞FileName;

　　　FileName=FileName.UpperCase();

　　　TempFile=FileName.SubString(1,FileName.AnsiPos("."))+"ICO";

　　//產生和備選文件同名的Ico圖標文件名

　　　HICON hIcon; //定義抽取的圖標句柄

　　　int Total =(int) ExtractIcon( Form1-＞Handle, FileName.c_str(), -1);

　　　//抽取圖標：-1表示抽取所有圖標并且將獲得的圖標總數存入變量Total

　　　ListView1-＞Items-＞Clear();

　　　ImageList1-＞Clear();

　　　for(int i=0;i {

　　　Icon = new TIcon();

　　　hIcon = ExtractIcon( Form1-＞Handle, FileName.c_str(),i);

　　　Icon-＞Handle=hIcon;

　　　ImageList1-＞AddIcon(Icon);

　　　Lst=ListView1-＞Items-＞Add();

　　　Lst-＞Caption="第"+IntToStr(i)+"號圖標";

　　　Lst-＞ImageIndex=i;

　　　}

　　　if(Total＞0)

　　　{

　　　Icon-＞SaveToFile(TempFile);

　　//將最后一個圖標存入文件

　　　Image1-＞Picture-＞LoadFromFile(TempFile); //將存入文件的圖標顯示

　　　}

　　　}

　　}

　　以下為退出按鈕設置

　　　void_fastcall TForm1::SpeedButton2Click(TObject�砈ender)

　　{

　　　Close();

　　}

　　在編輯文檔的頭文件中定義：AnsiString　TempFile,FileName;Ticon�矷con;運行程序時，你所選定的程序的全部圖標就在ListView控件中顯示出來，最后一個圖標在Image控件中顯示出來，此時如果在ListView中單擊圖標，相應的信息也將在Image控件中顯示。

　　經過以上的操作，被選文件的圖標信息就被顯示出來了。下面，我們討論如何存儲被選定的圖標。

　　存儲圖標

　　為了不影響整個界面的美觀，我們在Form上建立一個快捷選單，并在“存儲圖標”的Click事件中書寫如下代碼：

　　void_fastcall TForm1::N1Click(TObject�砈ender)

　　{

　　　if (InputQuery("提示信息", "存儲文件名:", PutFile)) //彈出輸入對話框

　　　{

　　　if (PutFile.Length()＞0)

　　　{

　　　if(PutFile.AnsiPos(".")<=0)

　　　{

　　　PutFile=PutFile+".Ico" ;

　　　}

　　　if(ListView1-＞Selected!=NULL)

　　　{

　　　HICON hIcon;

　　　Icon = new TIcon();

　　hIcon=ExtractIcon(Form1-＞Handle,FileName.c_str(),ListView1-＞Selected-＞Index);

　　　Icon-＞Handle=hIcon;

　　　Icon-＞SaveToFile(PutFile);

　　　Image1-＞Picture-＞LoadFromFile(PutFile);

　　　delete Icon;

　　　}

　　　}

　　　}

　　}

　　Windows下的執行文件，大部分都是資源信息與應用代碼單獨存放的，從這些資源文件中抽取圖標信息只是很小的一個實例。如果要獲取更多的信息，就需要調用API函數SHGetFileInfo。有興趣的朋友可以用本文類似的思路進行更深一步的探討，我想，編寫一個漢化軟件并非難事。