Delphi中用WM_SETICON消息实现动态改变应用程序的图标

作者: d3sw
主页: http://www.d3sw.cn/blog

转载时请注时出处喔


// 注意,TForm1在这里是主窗体
procedure TForm1.Button1Click(Sender: TObject);
var
  pIcon: HICON;
  pHWnd: HWND;
  iRet: Integer;
begin
  // 这里假设要改变的图标存放在一个Image1中
  // 在实现应用中,可以更改,只要能获得图标Icon的Handle就可以
  pIcon := Image1.Picture.Icon.Handle;
  
  // 获取改窗体对应的父窗体(任务栏)的句柄
  pHWnd := GetWindowLong(Handle, GWL_HWNDPARENT);
                    
  // 发送WM_SETICON消息,通知更改图标
  iRet := SendMessage(pHWnd, WM_SETICON, ICON_BIG, pIcon);
end;
本文出自 51CTO.COM技术博客