Fórum Icones #146922

O melhor programa para isso chama-se
Microangelo
É só procurar no google, ele possui versão shareware, nada que não possa ser retirado.

O Microangelo eh o melhor mesmo.. mas ele eh muito gde... Eu uso o ArtIcons, pq exporto mais ícones...
procura em www.superdownloads.com.br
q vc acha ele c quiser

Pegue esse codigo e faça seu proprio programa

T+

Emilio



Como converter Bitmap em ícone

procedure TForm1.Button1Click(Sender: TObject);
var iconinfo: TIconInfo;
IconX, IconY: integer;
Icon : TIcon;
Bitmap, Mask : TBitmap;
begin
IconX := GetSystemMetrics(SM_CXICON);
IconY := GetSystemMetrics(SM_CYICON);
Icon := TIcon.Create;
Bitmap := TBitmap.Create;
Mask := TBitmap.Create;
BitMap.Width:=IconX;
BitMap.Height:=IconY;
Mask.Width:=IconX;
Mask.Height:=IconY;
Mask.Monochrome:=true;
BitMap.Canvas.Draw(0,0,Image1.Picture.BitMap);
Mask.Canvas.Draw(0,0,Image1.Picture.BitMap);
with iconinfo do begin
fIcon:=true;
xHotspot:=0;
yHotspot:=0;
hbmMask:=Mask.Handle;
hbmColor:=BitMap.Handle;
end;
Icon.Handle:=CreateIconIndirect(IconInfo);
Form1.Canvas.Draw(100,100, Icon);
Icon.SaveToFile(´D:\test.ico´);
Icon.Free;
Bitmap.Free;
Mask.Free;
end;

Autor: Rainer Kümmerle