- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我想要一个函数,它可以获取Windows中的任何文件路径(任何文件系统对象——文件、文件夹、驱动器、快捷方式等)并返回关联的.ICO文件(或带有所有图像的图标的一些句柄)尺寸表示)。例如,如果我在 Windows 7 中指定“C:\MyTextFile.txt”,我将在位于 imageres 的 .ICO 文件中获取 .txt 文件的所有 256x256、48x48、32x32 和 16x16 表示形式。 dll 位于偏移量 102 处:
^ Stardock IconPackager 安装的图标选项卡,用于定位文件系统对象的图标
从我迄今为止的研究来看,这似乎并不那么容易。有 ExtractIconEx
函数,但它只提供 16 和 32px 表示。还有this post显示如何获取 SHIL_SMALL
、SHIL_LARGE
、SHIL_EXTRALARGE
和 SHIL_JUMBO
尺寸,通常为 16、32 、 48 和 256 像素分别。但是,这并不一定涵盖存储在 .ICO 文件中的其他大小。例如,某些图标存储 10 种或更多不同的尺寸,而不仅仅是四种。
所以,我正在尝试:
我想一个问题是:这是 Windows 注册表的一项任务吗?如下所示,注册表的 txtfile->DefaultIcon 值包含 .txt 文件类型的图标位置。
但是,也有一些独立的 .exe 文件,例如,它们自包含一个不会存储在注册表中的图标。
最终,我想在 TImage 中显示所有不同的大小,并可能将它们一起输出到 .ICO 文件中。任何帮助将不胜感激。
最佳答案
作为一个选项,有一个 IShellItemImageFactory
接口(interface),它提供有关 IShellItem
(文件)缩略图的信息。这个界面可以返回所需的大小,但它需要一些图标透明度的魔法。有 2 个选项 - 缩略图或图标。对于文件夹
,它总是返回相同的图像(更新:这不是真的,文件夹缩略图还包含它所包含的文件的小预览)。但例如对于 png
,它返回带有 thumbnail
标志的小预览图像和带有 icon
标志的 png-image-icon (0 是默认值)。对于您的任务,您应该使用 SIIBBF_ICONONLY
标志来获取文件/文件夹/驱动器系统图标。
这里是示例代码,它加载不同尺寸的图像。
type
TIconSize = (is16, is32, is48, is64, is96, is128, is256);
const
ICON_SIZE : array[TIconSize] of integer = (16,32,48,64,96,128,256);
我在表单上添加了 SizeRadioGroup : TRadioGroup
和 Image1 : TImage
。 Image1.Size
设置为 256。SizeRadioGroup
点击事件处理程序将缩略图加载到 Image1
:
procedure TForm7.SizeRadioGroupClick(Sender: TObject);
const FILE_NAME = 'd:\_projects\';
var icoSize : TIconSize;
wh : integer;
siif : IShellItemImageFactory;
size : TSize;
icon_handle : HBitmap;
bm : TBitmap;
begin
icoSize := TIconSize(SizeRadioGroup.ItemIndex);
wh := ICON_SIZE[icoSize];
SHCreateItemFromParsingName(FILE_NAME, nil, IID_IShellItemImageFactory, siif);
size.cx := wh;
size.cy := wh;
siif.GetImage(size, 0 {SIIGBF_THUMBNAILONLY}{SIIGBF_ICONONLY}, icon_handle);
bm := TBitmap.Create();
bm.PixelFormat := pf32bit;
try
bm.Handle := icon_handle;
Image1.Picture.Assign(bm);
finally
bm.Free();
end;
end;
关于delphi - 如何在Windows中获取任何文件的关联图标(.ICO)并在Delphi中显示所有图标图像大小?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15103361/
最近几天,我们考虑使用 Solr 作为我们的首选搜索引擎。 我们需要的大多数功能都是开箱即用的,或者可以轻松配置。 然而,我们绝对需要的一项功能似乎在 Solr 中被很好地隐藏(或缺失)了。 我会试着
我是 Sequelize 的新手,并且一直在探索关联。我正在使用 mysql 5.6 并 Sequelize ^4.42.0。我正在尝试创建两个简单的表:PRJS 和 TASKS 并将一些数据插入这些
关联、聚合和组合之间有什么区别?请从实现的角度解释一下。 最佳答案 对于两个对象,Foo 和 Bar 可以定义关系 关联 - 我与一个对象有关系。 Foo 使用 Bar public class Fo
这两种 hasOne 语法有什么区别? class Project { ....... ............ static hasOne = Employee // static h
对于当前的项目,我想使用遗传算法 - 目前我查看了 jenetics 库。 如何强制某些基因相互依赖?我想将 CSS 映射到基因上,例如我有基因指示是否显示图像,以及如果它也是各自的高度和宽度。因此,
关联、聚合和组合之间有什么区别?请从实现的角度解释一下。 最佳答案 对于两个对象,Foo 和 Bar 可以定义关系 关联 - 我与一个对象有关系。 Foo 使用 Bar public class Fo
假设我有一个名为“学生”的表格,其中包含姓名、手机、电子邮件、首选类(class)、首选学校、性别、年龄、地址、资格、职称、家庭电话、工作电话等列 我想从 Students 表中选择数据并插入到 2
问题标题有点困惑。我有一级员工和一级项目。一名或多名员工正在从事一个或多个项目。在这个关联中,我只有一个从具有*多重性的员工类到具有*多重性的项目类的链接。现在有另一种实现。每个项目只有一名经理,属于
到目前为止,我有一个程序采用一组随机点、站点,并围绕这些点形成适当的 Voronoi 图,表示为角和边的图形。它还为我提供了 Delaunay 三角剖分作为另一个以所有站点为节点的图形(尽管我不知道这
实现IComMethodEvents时你得到三个事件。 OnMethodCall OnMethodException OnMethodReturn 我的目标是记录 COM+ 组件中每个方法的调用时间。
我正在处理这个问题。我正在创造数学问题,每一个都有回应。例如。 如果我的问题是关于“5x + 15 = 2 的结果?”,我将只等待一个答案(整数)。 如果我的问题是关于“给我这个形状的面积和许可”,我
我正在寻找一种数据结构来保存唯一元素的无序集合,它将支持以下操作 在集合中任意位置插入/删除元素 查询元素是否存在 访问一个随机元素 天真地,1 和 2 建议使用关联容器,例如unordered_se
是否可以在 LINQ 中使用类似 ContactAddress.Contact 的内容,而无需在 SQL Server 中在这两者之间创建外键关系(通过 Contact.Id ContactAddr
我一直在谷歌搜索,但不明白调用 javax.persistence.criteria.Subquery 和 Criteria API 的方法相关的结果是什么。 http://www.objectdb.
我正在关注 Chris McCord 的“Programming Phoenix”一书,在第 6 章中,在 User 之间创建了一个关系。和一个 Video . 尝试使用 mix phoenix.se
我在 XAML 中有一个 ItemsControl,我在其中为每个组显示一个扩展器,以便我可以展开/折叠该组。我想保持 IsExpanded 的状态属性(以及可能与组标题显示相关的其他设置)。通常你只
Oracle 11 中是否有内置方法来检查 varchar2 字段中值的相关性?例如,给定一个简单的表,如下所示: MEAL_NUM INGREDIENT --------------------
是否可以在没有 JPA 在数据库中创建外键的情况下设置多对一关联? 这些表归另一个系统所有,并以异步方式填充。因此我们不能在数据库中使用 FK。仍然,几乎总是,最终是一种关系。 @ManyToOne(
我一直在使用NHibernate,使用Fluent NHibernate进行映射。我解决了很多问题,并开始认为自己在nhibernate中经验丰富。 但是,此错误非常奇怪。 这是我的模型: p
我正在开发一个 Typescript Sequelize 项目,其中我的 /models/index.ts 文件具有以下“导入此目录中的所有模型”功能: var basename = path.bas
我是一名优秀的程序员,十分优秀!