WinAPI: ExtractIcon - 获取 EXE、DLL 或 ICO 文件中的图标

本文介绍了一种使用Delphi从.EXE或.DLL文件中提取图标的实用方法,并提供了完整的示例代码。该方法利用了Windows API函数ExtractIcon来获取文件内包含的所有图标资源。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

//声明:
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.


//效果图:
r_155.png

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值