为ImageList组件动态加入图标

方法一：自画
var
 FileName: AnsiString;
 Ico:TIcon;
begin
 FileName := 'D:\tools\Tencent\QQ.EXE';
 Ico:=TIcon.Create;
 Ico.Handle:=ExtractIcon(Hinstance, pchar(FileName), 0);
 Image1.Picture.Icon.Handle :=ExtractIcon(Hinstance, pchar(FileName), 0);//Image1自画
{菜单自画}
  N12.ImageIndex:=ImageList1.AddIcon(Ico);
  N12.Bitmap.Height:=16;
  N12.Bitmap.Width:=16;
  DrawIconEx(N12.Bitmap.Canvas.Handle, 0, 0, Ico.Handle, N12.Bitmap.Width, N12.Bitmap.Height, 0, 0, DI_NORMAL);
end;

方法一：加入Imagelist控件
var
 FileName: AnsiString;
 Ico:TIcon;
begin
 FileName := 'D:\tools\Tencent\QQ.EXE';
 Ico:=TIcon.Create;
 Ico.Handle:=ExtractIcon(Hinstance, pchar(FileName), 0);
 {菜单自画}
  N12.ImageIndex:=ImageList1.AddIcon(Ico);
end;