文档章节

从 EXE 或 DLL 中获取图标的函数 - 回复 "小李子子" 的问题

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 364
阅读 11
收藏 0
问题来源: http://www.cnblogs.com/del/archive/2008/12/25/1070115.html#1413353

代码文件:
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses ShellAPI;

{从 EXE 或 DLL 中获取 ICO 图标的函数, 需要 uses ShellAPI}
function GetIco(const ExePath: string; SavePath: string): Integer; {返回获取总数}
var
  ico: TIcon;
  i,count: Integer;
  FileName: string;
begin
  Result := 0;
  count := ExtractIcon(HInstance, PChar(ExePath), $FFFFFFFF);
  if count = 0 then Exit;

  if not DirectoryExists(SavePath) then ForceDirectories(SavePath);
  FileName := ChangeFileExt(ExtractFileName(ExePath), '');
  SavePath := ExcludeTrailingPathDelimiter(SavePath) + '\' + FileName + '_%.3d.ico';

  ico := TIcon.Create;
  for i := 0 to count - 1 do
  begin
    ico.Handle := ExtractIcon(HInstance, PChar(ExePath), i);
    ico.SaveToFile(Format(SavePath, [i+1]));
  end;
  ico.Free;
  Result := count;
end;

{测试: 获取当前程序图标}
procedure TForm1.Button1Click(Sender: TObject);
begin
  GetIco(ParamStr(0), 'c:\temp');
end;

{测试: 获取记事本图标}
procedure TForm1.Button2Click(Sender: TObject);
var
  buf: array[0..MAX_PATH] of Char;
begin
  GetSystemDirectory(buf, Length(buf)*SizeOf(buf[0]));
  GetIco(buf + '\notepad.exe', 'c:\temp');
end;

{测试: 获取 Windows 的标准图标库}
procedure TForm1.Button3Click(Sender: TObject);
var
  buf: array[0..MAX_PATH] of Char;
begin
  GetSystemDirectory(buf, Length(buf)*SizeOf(buf[0]));
  GetIco(buf + '\Shell32.dll','c:\temp');
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 194
  ClientWidth = 206
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 64
    Top = 32
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 64
    Top = 80
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 64
    Top = 127
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 2
    OnClick = Button3Click
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/12/26/1362860.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Inno Setup 制作jar转EXE文件的安装包 之权限、图标、卸载菜单的问题

·怎么给在开始菜单中增加卸载快捷方式? 在相应节点下,添加以下代码 ·怎么自定义卸载图标? (例中卸载图标名字为:uninstallico.ico) 下载一个UpdateIcon.dll放在同一个文件夹下(JAR、脚...

周田
2016/07/08
50
0
Yunlong/CPP-ThreadInject

#C++ 线程注入 写在前面,本人C++纯小白,公开项目是希望获得更多朋友的帮助,如果您正好能解决我目前遇到的问题,希望您能在问题中回复我,项目改进后会继续保持开源,感谢大家的支持 编译 ...

Yunlong
2015/07/08
0
0
VBS学习--创建桌面快捷方式

Icons这一可选段定义所有创建在开始菜单和或其它位置 (比如桌面) 的快捷方式。一个例子如下: [setup] ;全局设置,本段必须 AppName=Test AppVerName=TEST DefaultDirName="E:TEST" AppVers...

长征2号
2017/08/19
0
0
代码注入的三种方法

http://www.vckbase.com/index.php/wv/1580 目录 Windows 钩子 CreateRemoteThread 和 LoadLibrary 技术 ――进程间通信 CreateRemoteThread 和 WriteProcessMemory 技术 ――如何用该技术子......

nothingfinal
2012/08/31
0
0
[发布] Photoshop ICO 文件格式插件 V2.0版

    [更新预告] 我正在开发 ICO 插件的 3.0 版本。增加了新的比原来更好的缩放算法。同时将改进一些 UI。预计 2017 年 6 ~ 7 月可以发布。2017 年 6 月 11 日。     【声明】此插件下...

hoodlum1980
2010/12/29
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Java生成二维码图片

maven配置jar包 <dependency><groupId>com.google.zxing</groupId><artifactId>core</artifactId><version>3.3.3</version></dependency><dependency><groupId>com.google.z......

骑羊放狼灬
27分钟前
3
0
oracle 修改字段类型

1.varchar2 类型修改 例子:alter table T_Node modify (NODE_CONTEXT varchar2(4000)); 2.varchar2 修改为clob 例子: alter table T_Node add hehe clob; update T_Node set hehe=NODE_CO......

qimh
31分钟前
4
0
别再写 bug 了,避免空指针的 5 个案例!

空指针是我们 Java 开发人员经常遇到的一个基本异常,这是一个极其普遍但似乎又无法根治的问题。 本文,栈长将带你了解什么是空指针,还有如何有效的避免空指针。 什么是空指针? 当一个变量...

Java技术栈
35分钟前
11
0
FastJson对BigDecimal保留两位小数(valueFilter)

实现ValueFilter public class BigDecimalValueFilter implements ValueFilter { @Override public Object process(Object o, String name, Object value) {//o是待转换的对象,n......

石日天
37分钟前
2
0
android 颜色透明度参照比

##透明度参照表: 00%=FF(不透明) 5%=F2 10%=E5 15%=D8 20%=CC 25%=BF 30%=B2 35%=A5 40%=99 45%=8c 50%=7F 55%=72 60%=66 65%=59 70%=4c 75%=3F 80%=33 85%=21 90%=19 95%=0c 100%=00(全透......

东街小霸王
38分钟前
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部