Delphi shell的上下文菜單，如何繪製圖標

Question

我可以得到一些代碼，顯示如何在右鍵單擊上下文菜單上繪製位圖/圖標嗎？

我有工作代碼已經爲上下文菜單的DLL，但它只是文本。示例：http://www.marcocantu.com/code/md5/TODOSHLL.htm

Answer 1

它seems您可以簡單地使用SetMenuItemBitmaps API。

編輯：Here是德爾福的一個例子。

編輯2：警告：我只是注意到，Delphi示例泄漏位圖句柄，並可能最終崩潰系統。位圖應該只在對象的構造函數中加載一次（並且更好地從它自己的資源中，而不是從文件系統中加載），並在析構函數中釋放。