如何使用Delphi从另一个文件的资源加载单个图标？

发布时间：2020-12-15 04:19:15 所属栏目：大数据来源：网络整理

导读：我想加载一个图标(来自另一个文件),其中没有嵌入多个图标(它不是图标组). 我不知道它的大小. 我现在使用此代码来检索图标的句柄并将其与TIcon.Handle一起使用： function ResourceToIconHandle(hFile: hModule; IDname: PChar): HICON;var hGicon1,hLoadIcon

我想加载一个图标(来自另一个文件),其中没有嵌入多个图标(它不是图标组).
我不知道它的大小.
我现在使用此代码来检索图标的句柄并将其与TIcon.Handle一起使用：

function ResourceToIconHandle(hFile: hModule; IDname: PChar): HICON;
var
   hGicon1,hLoadIcon1: THandle;
   pGIcon1: Pointer;
begin
   hGicon1 := FindResource(hFile,IDName,RT_ICON);
   if hGicon1 <> 0 then
   begin
      hLoadIcon1 := LoadResource(hFile,hGicon1);
      pGicon1 := LockResource(hLoadIcon1);
      Result := CreateIconfromResource(pGicon1,SizeofResource(hFile,hGicon1),True,$00030000);
   end;
end;

是的,它只是代码的一部分(如果你想我会全部显示).
它仅适用于一个问题：CreateIconfromResource函数给我任何以32×32拉伸的图标：

1 http://22.imagebam.com/download/u7q9PTEAUlSeZ1IJXQ5ViA/15321/153201662/bad.PNG

但我希望以原始分辨率获取图标：
2 http://56.imagebam.com/download/yH_Nc9dfsADso0W9A2bL1w/15321/153204932/good.PNG

我知道CreateIconfromResource旨在以相同的分辨率获得它们,这就是我正在寻找另一个功能的原因.
谢谢您的帮助.

解决方法

使用CreateIconFromResourceEx而不是CreateIconFromResource.

CreateIconFromResourceEx允许您提供所需的宽度/高度,而CreateIconFromResource使用默认的系统mertics(如针对LR_DEFAULTSIZE所述)：

Uses the width or height specified by the system metric values for cursors or icons,if the cxDesired or cyDesired values are set to zero. If this flag is not specified and cxDesired and cyDesired are set to zero,the function uses the actual resource size. If the resource contains multiple images,the function uses the size of the first image.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!