如何把一个BMP文件转换为图标文件（空）(40分)

copy

来自：黄耀彰 时间：00-5-2 16:29:37 ID:236416
以前写的，仅供参考。
procedure TIconShow.FileListBox1Click(Sender: TObject);
var
MyIcon:TIcon;
MyBitMap:Tbitmap;
begin
MyIcon:=TIcon.Create ;
MybItmap:=TBItMap.Create ;
try
//从Listbox1中得到图标文件名
StrFileName:=FileListBox1.Items[FileListBox1.ItemIndex];
StrPCopy(cStrFileName,StrFileName);
MyIcon.Handle:=ExtractIcon(hInstance,cStrfileName,0);

//在SpeedButton 显示转换成的位图。
SpeedButton1.Glyph:=MyBitMap;
SpeedButton1.Glyph.width:=MyIcon.Width;
SpeedButton1.Glyph.Height:=MyIcon.Height;
SpeedButton1.Glyph.Canvas.Draw (0,0,MyIcon);
SpeedButton1.Hint:=strFileName;
finally
MyIcon.Free ;
MyBitMap.Free ;
end;
end;//其它方式的转换如此类推。

编程不会
你可以用剪贴板把图片复制到Image Editor中做成图标，我一直这样干。

http://www.csdn.net/delphi上有demo

直接另存为行吗？

直接改名就行了吧，我只会这一招

有人帮我Copy我就不用解了。呵呵。

黄耀彰，你好：
这里又见面了。

大家好才是真的好！

gwd 还没解决吗？

直接将位图的扩展名.BMP改为.ICO

多人接受答案了。