delphi – LoadIcon()是否可能发生内存泄漏？

我正在使用此代码为线程中的托盘图标设置动画(icon1和icon2在.res文件中)：

while AnimationPending do
begin
    TrayIcon.Icon.Handle := LoadIcon(hInstance,'icon1');
    Sleep(300);
    TrayIcon.Icon.Handle := LoadIcon(hInstance,'icon2');
    Sleep(300);
end;

我担心如果我在循环中执行它可能会造成内存泄漏,因为icon1 / 2会再次加载.

代码是否会造成内存泄漏,或者在循环中使用是否安全？

解决方法

您正在调用LoadIcon.这将返回所谓的共享图标.这在 DestroyIcon的文档中有解释.作为共享图标的一个后果是您不需要调用DestroyIcon.

It is only necessary to call DestroyIcon for icons and cursors created
with the following functions: CreateIconFromresourceEx (if called
without the LR_SHARED flag),CreateIconIndirect,and copyIcon. Do not
use this function to destroy a shared icon. A shared icon is valid as
long as the module from which it was loaded remains in memory. The
following functions obtain a shared icon.

LoadIcon

LoadImage (if you use the LR_SHARED flag)

copyImage (if you use the LR_copYRETURnorG flag and the hImage parameter is a shared icon)

CreateIconFromresource

CreateIconFromresourceEx (if you use the LR_SHARED flag)

那么,这与你的代码有什么关系呢？好吧,当你写作

TrayIcon.Icon.Handle := LoadIcon(hInstance,'icon1');

您正在分配TIcon对象的Handle属性.如果该TIcon对象已包含图标,则该图标将在被新图标替换之前被销毁.那是因为TIcon拥有其图标句柄的所有权.所有这些意味着上面的代码行导致对DestroyIcon调用共享图标.这就是MSDN告诉你不要做的事情,但实际上事实证明它是良性的.没什么值得担心的.

现在,即使您使用的是返回非共享图标的功能,例如CreateIconIndirect然后你的代码不会泄漏图标句柄.那是因为TIcon类拥有图标句柄的所有权.

但由于您使用的是共享图标,因此甚至无法泄漏这些句柄.无法破坏的物体,不能泄露！

还有一点：

>我个人不会一遍又一遍地调用LoadIcon.我会在程序启动时调用它两次并记住共享图标句柄.然后我会使用这些句柄分配给TrayIcon.Icon.Handle.>当您调用LoadIcon时,您无法控制返回的图标的大小.我认为你可能会获得一个大图标而不是一个小图标.这需要在显示之前缩放到小图标大小.创建通知区域图标时,应确保SM_CYSMICON大小为SM_CXSMICON.

delphi – LoadIcon()是否可能发生内存泄漏？

解决方法

相关推荐