Delphi获取 EXE、DLL 或 ICO 文件中的图标

// 声明:
ExtractIcon(
  hInst: HINST;            { 调用函数的程序实例 }
  lpszExeFileName: PChar;  { 文件路径; 文件可以是 *.exe、*.dll、*.ico }
  nIconIndex: UINT         { 图标索引 }
): HICON;  { 返回图标句柄; 索引为 0 时返回第一个图标句柄; 索引为 #FFFFFFFF 时返回图标总数 }

 

---

unit  Unit1;

interface

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

type
  TForm1  =   class (TForm)
    Button1: TButton;
     procedure  Button1Click(Sender: TObject);
   end ;

var
  Form1: TForm1;

implementation

{ $R *.dfm }

uses  ShellAPI;  { ExtractIcon 在其中声明 }

procedure  TForm1.Button1Click(Sender: TObject);
var
  ico: TIcon;
  i,count,x,y,w,h: Integer;
  FilePath:  string ;
begin
   { 随便找了个路径, 如果缺失会退出 }
  FilePath : =   ' C:\Program Files\Macromedia\Fireworks 8\Fireworks.exe ' ;
   if   not  FileExists(FilePath)  then   begin  ShowMessage( ' 文件不存在 ' ); Exit;  end ;

  ico : =  TIcon.Create;
  x : =   10 ; y : =   10 ; w : =   0 ; h : =   0 ;
  Repaint;

   { 先算出文件内的图标总数 }
  count : =  ExtractIcon(HInstance, PChar(FilePath), HICON( - 1 ));

   for  i : =   0   to  count  -   1   do
   begin
     { 循环提取图标 }
    ico.Handle : =  ExtractIcon(HInstance, PChar(FilePath), i);

     { 画出图标 }
    Canvas.Draw(x,y,ico);

     { 下面只是调整显示位置 }
     if  w  <  ico.Width  then  w : =  ico.Width;
     if  h  <  ico.Height  then  h : =  ico.Height;
    x : =  x  +  ico.Width  +   10 ;
     if  x  >=  ClientWidth  -  w  then
     begin
      x : =   10 ;
      y : =  y  +  h  +   10 ;
     end ;
   end ;

  ico.Free;
end ;

end .

 

转载于:https://www.cnblogs.com/rogee/archive/2010/09/15/1827300.html