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

发布于 2024-12-09 01:41:30 字数 1032 浏览 1 评论 0原文

我想加载一个图标（来自另一个文件），该图标没有嵌入多个图标（它不是图标组）。我不知道它的大小。我现在使用此代码来检索图标的句柄并将其与 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 函数给我任何拉伸为 32x32 的图标：

但我想以原始分辨率获取图标：

我知道 CreateIconfromResource 的设计目的是让它们具有相同的分辨率，这就是我正在寻找另一个函数的原因。感谢您的帮助。

原文

I want to load an icon (from another file) which doesn't have multiple icons embedded in it (it's not an icon group).
I don't know its size.
I use now this code to retrieve the handle of the icon and use it with a 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;

Yes, it's only a part of the code (if you want I'll show all).
It works with only one problem: CreateIconfromResource function is giving me any icon streched at 32x32:

But I want to get the icons at their original resolution:

I know that CreateIconfromResource is designed to get them at the same resolution, that's why I'm looking for another function.
Thank you for your help.

分享到QQ

分享到微博