你在打电话LoadIcon
。这将返回所谓的共享图标。这在DestroyIcon
. 成为共享图标的后果之一是您不需要调用DestroyIcon
.
只需为使用以下函数创建的图标和光标调用DestroyIcon : CreateIconFromResourceEx(如果在没有LR_SHARED标志的情况下调用)、CreateIconIndirect和CopyIcon。请勿使用此功能破坏共享图标。只要加载它的模块仍在内存中,共享图标就有效。以下函数获取共享图标。
- 加载图标
- LoadImage(如果您使用LR_SHARED标志)
- CopyImage(如果您使用LR_COPYRETURNORG标志并且 hImage 参数是共享图标)
- CreateIconFromResource
- CreateIconFromResourceEx(如果您使用LR_SHARED标志)
那么,这与您的代码有何关系?好吧,当你写
TrayIcon.Icon.Handle := LoadIcon(hInstance,'icon1');
您正在分配给对象的Handle
属性TIcon
。如果该TIcon
对象已经包含一个图标,则该图标将在被新图标替换之前被销毁。那是因为TIcon
拥有其图标句柄的所有权。所有这一切都意味着上面的代码行导致了DestroyIcon
对共享图标的调用。这是 MSDN 告诉你不要做的,但实际上它是良性的。没什么好担心的。
现在,即使您使用的是返回非共享图标的函数,例如CreateIconIndirect
,您的代码也不会泄漏图标句柄。这是因为TIcon
该类拥有图标句柄的所有权。
但是由于您使用的是共享图标,因此甚至不可能泄漏这些句柄。不能破坏的对象,不能泄露!
还有几点:
- 我个人不会
LoadIcon
像那样一遍又一遍地打电话。我会在程序启动时调用它两次并记住共享图标句柄。然后我会使用这些句柄分配给TrayIcon.Icon.Handle
.
- 当您打电话时,
LoadIcon
您无法控制返回的图标的大小。我认为您可能会得到一个大图标而不是小图标。这需要在显示之前缩放到小图标大小。创建通知区域图标时,您应该确保它们SM_CXSMICON
按SM_CYSMICON
大小排列。