一个从EXE、DLL文件中提取、存取图标完整程序

原创 2002年01月14日 09:13:00

       作为一名程序员,会经常为制作、设计程序图标费尽心思,当我们看到许多应用软件的图标非常漂亮的时候,是多么的羡慕!我们可不可以借鉴一下他们的图标?完全可以!我们利用 ExtractIcon API函数就能够轻松地从ICO文件或可执行文件以及DLL文件中提取图标。

     下面的代码示范了一个完整的提取图标、存储图标的程序:
unit UFormIconGrabber;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ShellAPI, ExtDlgs;
type
  TForm1 = class(TForm)
    Image1: TImage;
    btNextIcon: TButton;
    Label1: TLabel;
    EditFileName: TEdit;
    btBowserFile: TButton;
    OpenDialog1: TOpenDialog;
    btSaveIco: TButton;
    SavePictureDialog1: TSavePictureDialog;
    btPrevirousIcon: TButton;
    procedure btNextIconClick(Sender: TObject);
    procedure btBowserFileClick(Sender: TObject);
    procedure btSaveIcoClick(Sender: TObject);
    procedure btPrevirousIconClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure MoveIconIndex(Const OperateString:String);
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.MoveIconIndex(Const OperateString:String);
const
 I : Integer = 0;
 FileName : String = '';
var
 Count : Integer;
begin
 if( FileName <> EditFileName.Text ) then
     begin
         FileName := EditFileName.Text;
         I := 0;
     end
 else
     if OperateString='MoveNextIcon' then
        Inc(I)
     else
        begin
            if I>0 then
               dec(I);
        end;
//得到总的图标数目
 Count := ExtractIcon( Application.Handle, PChar(FileName),$FFFFFFFF);
 if( I < Count ) then
  Image1.Picture.Icon.Handle :=
   ExtractIcon( Application.Handle, PChar(FileName), I ) // I为图标的索引
 else
   ShowMessage('此文件没有更多的图标资源!' );
end;
procedure TForm1.btNextIconClick(Sender: TObject);
begin
 MoveIconIndex('MoveNextIcon');
end;
procedure TForm1.btBowserFileClick(Sender: TObject);
begin
     try
        OpenDialog1.Title:='选择EXE文件或DLL文件:';
        OpenDialog1.Filter:='提取文件(*.EXE;*.DLL;*.ICO)|*.DLL;*.EXE;*.ICO|All files (*.*)|*.*';
        OpenDialog1.FilterIndex:=1;
        if OpenDialog1.Execute then
           EditFileName.Text :=OpenDialog1.FileName;
        MoveIconIndex('MoveNextIcon');  
     except
        exit;
     end;

end;

procedure TForm1.btSaveIcoClick(Sender: TObject);
begin
     SavePictureDialog1.DefaultExt := GraphicExtension(TIcon);
     SavePictureDialog1.Filter := GraphicFilter(TIcon);
     if SavePictureDialog1.Execute then
        image1.Picture.SaveToFile(SavePictureDialog1.FileName);
end;
procedure TForm1.btPrevirousIconClick(Sender: TObject);
begin
    MoveIconIndex('MovePrevIcon');
end;
end.
       OK!,这样我们使用TImage.Picture.SaveToFile方法就可以很容易地将图标保存到单独的文件中,然后再利用Image Editor作适量的修改即可!

获取.exe/.dll/.icon文件的Icon图标资源

获取.exe/.dll/.icon文件的Icon图标资源
  • qq2399431200
  • qq2399431200
  • 2014年01月04日 19:23
  • 2882

在C/C++中获取可执行文件的图标和信息

在写AutorunLoadViewer的过程中,需要能够获取可执行文件的图标和一些特定的文件信息(比如公司名还有文件版本.etc) 但是似乎MFC并没有提供现成的类库,于是只能自己通过API实现...
  • educast
  • educast
  • 2013年08月14日 20:35
  • 4948

从其他应用程序中提取图标

问题由来苦逼个人码农没有设计师给设计图标,只能到处找icon,但总是很难找到合适的。其实从现有的软件中提取图标出来是个不错的方法,于是问题便来了。方法使用图标提取软件这种软件貌似只能提取一个exe的图...
  • sunnyloves
  • sunnyloves
  • 2015年10月31日 11:14
  • 1435

Qt之提取exe/dll/icon文件图标

原文地址::http://blog.csdn.net/u011012932/article/details/52503154 简述 在 Windows 中,文件查看有很多模...
  • xqhrs232
  • xqhrs232
  • 2016年10月15日 00:13
  • 377

Qt之提取exe/dll/icon文件图标

简述在 Windows 中,文件查看有很多模式,比如: 缩略图 16*16 平铺 48*48 图标 32*32 列表 16*16 分别对应了多个不同大小的图标。如果我们要从限定的可执行文件(exe)、...
  • u011012932
  • u011012932
  • 2016年09月11日 11:46
  • 3885

利用Costura.Fody制作绿色单文件程序(C#程序(含多个Dll)合并成一个Exe)

原文地址;https://www.cnblogs.com/1024zy/p/6371590.html 开发程序的时候经常会引用一些第三方的DLL,然后编译生成的exe文件就不能脱离这些DLL...
  • Metal1
  • Metal1
  • 2017年11月11日 20:03
  • 129

C# 抽取exe和dll程序图标

从文件中抽取图标,我们可以选择使用ExtractIcon()或ExtractIconEx(),以及ExtractAssociatedIcon(),LoadImage()和SHGetFileInfo()...
  • czw2010
  • czw2010
  • 2012年08月23日 16:17
  • 18133

[.NET源码] 抽取exe和dll程序图标

从文件中抽取图标,我们可以选择使用ExtractIcon()或ExtractIconEx(),以及ExtractAssociatedIcon(),LoadImage()和SHGetFileInfo()...
  • zhuqihe02
  • zhuqihe02
  • 2015年12月29日 17:29
  • 164

保存 EXE、DLL文件图标

//主函数为SaveIco /******************************************************************************/ /...
  • VcTrue
  • VcTrue
  • 2013年07月19日 09:16
  • 450

ToYcon.exe EXE/DLL/PE文件 简单ico、png 图标提取工具

  • 2013年09月01日 12:18
  • 640KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个从EXE、DLL文件中提取、存取图标完整程序
举报原因:
原因补充:

(最多只允许输入30个字)