從文件中提取圖標

2019-11-18 17:36:21

字體：大中小

來源：轉載

供稿：網友

----Windows95和NT是被無數計算機用戶所青睞的圖形界面(GUI)操作系統。我們知道,許多Win95或NT下的32位應用程序都帶有圖標（一般來說至少有一個），此外其它一些可執行模塊也常常是圖標的寶庫。這些可執行模塊包括*.EXE（可執行文件），*.DLL（DynamicLinkLibrary,即，動態連接庫），*.CPL（控制面板模塊）等。其中，不少圖標做得非常精致、漂亮，特別惹人喜歡。當然，其中大部分的圖標你可能無法直接看到。因此，不少人也許希望能有一種工具可以把這些精彩的圖標從那些文件中"取"出來。筆者就有過這種想法。后來，筆者自己動手寫了一個程序，使用它，我現在可以隨心所欲地從任何包含圖標資源的文件中提取任何我所喜愛的圖標，更不用說輕松地瀏覽文件中的所有圖標了。

----大家知道，包含在可執行模塊中的圖標資源是以二進制數據（或稱，資源）的形式存儲的，因而，我們應該把這些二進制數據轉換成圖標文件的格式，然后再存為圖標文件（*.ICO）。因為有了In
----(3)從Standard頁上選取一個TLabel

----(4)從Additional頁上選取一個TImage

----(5)從Dialogs頁上選取一個TOpenDialog，并把它的Options屬性的ofNoReadOnlyReturn子屬性改為False。

----(6)將Form1的Font改成System //Button1和Button2的Tag分別是1和-1
begin
ifTotal=0ThenExit;
No:=No (SenderasTButton).tag;
ifNo>TotalthenNo:=0;
ifNo<0thenNo:=Total;
Image1.Picture.Icon:=nil;
Image1.Picture.Icon.Handle:
=ExtractIcon(hInstance,PChar(ModuleName),No);
Label1.Caption:='No.' IntToStr(No) 'icon';
//Label1用于指示當前圖標在原文件中的序號
end;

procedureTForm1.FormCreate(Sender:TObject);
begin
Path:=ExtractFilePath(application.ExeName);
//下面的代碼使程序有處理命令行參數的能力
ifParamCount>0
Thenbegin
ModuleName:=ParamStr(1);
Total:=ExtractIcon(hInstance,PChar(ModuleName),-1);
Form1.caption:=IntToStr(Total)
'icon(s)foundin' ParamStr(1);
end;
end;

procedureTForm1.Button3Click(Sender:TObject);
//這段代碼保存當前圖標
begin
IfTotal=0ThenExit;
Image1.Picture.Icon.SaveToFile
(Path '/Icon' IntToStr(No) '.ico');
{把圖標文件與該程序存于
同一目錄,文件名為"Icon"加序號的形式}
end;

procedureTForm1.N2Click(Sender:TObject);
//這段代碼從菜單中選擇一個文件
begin
IfOpenDialog1.Execute
thenbegin
ModuleName:=OpenDialog1.FileName;
Total:=ExtractIcon(hInstance,PChar(ModuleName),-1);
No:=0;Label1.Caption:='';
Form1.Caption:=IntToStr(Total) 'icon(s)foundin' ModuleName;
end;
end;
end.

(調試環境：Delphi4.0，Windows95，WindowsNT4)

----說明：API函數ExtractIcon是在ShellAPI單元中聲明的，所以你必須在Uses語句中加入此單元才能使用該函數。它在Delphi中的原型聲明如下：

----functionExtractIcon(hInst:HINST;lpszExeFileName:PChar;nIconIndex:UINT):HICON;stdcall;

----參數說明：

----hInst：為調用該函數的實例句柄；

----lpszExeFileName：指明從哪個文件提取圖標（不一定非得是EXE文件）；

----nIconIndex：該參數為負1時，函數返回指定文件中包含的圖標個數；否則，返回序號為nIconIndex的圖標（如果存在的話）的句柄。在文件中圖標的序號是從0開始的。

----如果函數調用失敗則返回0.->

上一篇：圖像在圖片框中的滾動

下一篇：VB圖片框在報表設計中屏幕滾動的問題

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注