یک کد عالی برای تبدیل تصویر به icon . هر کس با داشتن این کد می توانید یک نرم افزار جالب بسازد.شما می توانید برای کاربر محیطی را فراهم سازید که او بر روی یک تصویر با سایز ??*?? کار کند و سر انجام با این کد تصویر را به icon تبدیل کنید.به جای image تصویر را معرفی و به جای filename آدرس ذخیره سازی را وارد کنید:

procedure bmp2ico(image:timage;filename:tfilename);
var
bmp:tbitmap;
icon:ticon;
imagelist:timagelist;
begin
bmp:=tbitmap.Create;
icon:=ticon.Create;
try
bmp.Assign(image.picture);
imagelist:=timagelist.CreateSize(image.Width,image.Height);
try
imagelist.AddMasked(bmp,bmp.TransparentColor);
imagelist.GetIcon(0,icon);
icon.SaveToFile(FILENAME);
finally
imagelist.Free;
end;
finally
bmp.Free;
icon.Free;
end;
end;
//Copyright 2005 KOOSHA SYSTEM SOFTWARE HTTP://DELPHI-CENTER.BLOGFA.COM