bmp 2 icon觉对好用.txt

delphi 编程技巧

procedure BmpToIco(ABmp,AIco:string);
var
  bmp,mbmp:tbitmap;
  ico:ticon;
  rbmp:BITMAP;
  a:array[0..4096] of byte;
  len:dword;
  i:integer;
  imglist:timagelist;
begin
  bmp:=tbitmap.Create;
  mbmp:=tbitmap.Create;
  mbmp.Assign(bmp);
  ico:=ticon.Create;
  imglist:=TImageList.CreateSize(32,32);
  try
    bmp.LoadFromFile(abmp);
    len:=GetBitmapBits(bmp.Handle,4096,@a);
    mbmp.Handle:=CreateBitmapIndirect(rbmp);
    for i:=0 to len do
      a[i]:=a[i] and a[i];
    SetBitmapBits(bmp.Handle,len,@a);
    imglist.add(bmp,mbmp);
    imglist.GetIcon(0,ico);

  finally
    bmp.Free;
    ico.Free;
    imglist.Free;
  end;
end;