Delphi實現提取可執行文件內部所有圖標

本實例實現的功能是能夠從用戶選擇的可執行文件(後綴名為exe)中提取所有圖標並且顯示在窗體上。

　　在窗體中添加TImage 組件、TOpenDialog組件和TButton組件，TImage組件充當顯示文件內圖標的容器，TOpenDialog組件和TButton組件用來激活提示用戶選擇GIF動畫的對話框。添加組件後的窗體如圖1所示。


圖1 添加組件後的窗體
　　首先在窗體的uses段中添加ShellAPI，然後添加按鈕響應代碼如下：

procedure TfrmMain.btnOpenClick(Sender: TObject);
var
　i: Integer;
　Large, Small: HICON;
　nIcons: Integer;
begin
　if OpenDialog1.Execute then
　begin
　　self.Image1.Canvas.Refresh;
　　nIcons:=ExtractIconEx(PChar(OpenDialog1.FileName), -1, Large, Small, 1);
　　for i:=0 to nIcons-1 do
　　begin
　　　ExtractIconEx(PChar(self.OpenDialog1.FileName), i, Large, Small, 1);
　　　DrawIcon(self.Image1.Canvas.Handle,(i div 4)*40,(i mod 4)*40,Large);
　　end;
　end;
end;
　　當用戶在程序運行過程中選擇一個可執行文件後，程序首先通過self.Image1.Canvas. Refresh語句清除TImage組件上的顯示內容，然後通過將ExtractIconEx函數的第2個參數指定為-1來取得可執行文件中圖標的數目。得到數目後，通過一個循環中的ExtractIconEx (PChar(self.OpenDialog1.FileName), i, Large, Small, 1)語句把可執行文件中的大、小圖標分別存儲在Large和Small變量中。最後通過DrawIcon函數在TImage組件上繪制圖標。

　　程序代碼如下：

unit Unit1;
interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI, Grids, ExtCtrls;

type
　TfrmMain = class(TForm)
　btnOpen: TButton;
　OpenDialog1: TOpenDialog;
　Image1: TImage;
　procedure btnOpenClick(Sender: TObject);
private
　{ Private declarations }
public
　{ Public declarations }
end;
var
　frmMain: TfrmMain;
　implementation
　{$R *.dfm}

　procedure TfrmMain.btnOpenClick(Sender: TObject);
　var
　　i: Integer;
　　Large, Small: HICON;
　　nIcons: Integer;
　begin
　　if OpenDialog1.Execute then
　begin
　　self.Image1.Canvas.Refresh;
　　nIcons:=ExtractIconEx(PChar(OpenDialog1.FileName), -1, Large, Small, 1);
　　for i:=0 to nIcons-1 do
　　begin
　　　ExtractIconEx(PChar(self.OpenDialog1.FileName), i, Large, Small, 1);
　　　DrawIcon(self.Image1.Canvas.Handle,(i div 4)*40,(i mod 4)*40,Large);
　　end;
　end;
end;

end.
　　保存文件，然後按F9鍵運行程序，程序運行的初始畫面如圖2所示。

　　單擊“打開”按鈕，彈出一個提示用戶選擇可執行文件的對話框。確認後，在窗體的TImge組件上顯示所選擇的可執行文件中存儲的圖標，如圖3所示。

    
圖2 程序運行的初始畫面


圖3 程序運行結果
　　讀者從這個實例中可以學到如何提取可執行文件內部的所有圖標並應用到自己的程序中。