Example code in Delphi that removes an icon:
const WM_ResetIcon = WM_APP - 1; type TForm1 = class(TForm) procedure FormShow(Sender: TObject); protected procedure WMResetIcon(var Message: TMessage); message WM_ResetIcon; end; implementation procedure TForm1.FormShow(Sender: TObject); begin PostMessage(Handle, WM_ResetIcon, 0, 0); end; procedure TForm1.WMResetIcon(var Message: TMessage); const ICON_SMALL = 0; ICON_BIG = 1; begin DestroyIcon(SendMessage(Handle, WM_SETICON, ICON_BIG, 0)); DestroyIcon(SendMessage(Handle, WM_SETICON, ICON_SMALL, 0)); end;
Similar code should work for MFC. Basically, you just need WM_SETICON to NULL in the right place.
Alex
source share