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

Question

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.

Answer 1

Use CreateIconFromResourceEx instead of CreateIconFromResource .

CreateIconFromResourceEx lets you provide desired width/height, while CreateIconFromResource is using default system mertics for those (such as explained for 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.

Answer 2

Roman R.可能是对的，但我还补充说， 在设置其Handle 之前 ，必须设置TIcon对象的正确尺寸。