You are calling LoadIcon. This returns the so-called common icons. This is explained in the documentation for DestroyIcon. One of the consequences of using a common icon is that you do not need to call DestroyIcon.
DestroyIcon : CreateIconFromResourceEx ( LR_SHARED), CreateIconIndirect CopyIcon. , . , , . .
- LoadIcon
- 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.