如何将bmp转换为Ico(50分)

  • 主题发起人 主题发起人 的士
  • 开始时间 开始时间
uses ShellAPI;

OpenDialog1.Execute;
with Image1.Picture do
begin
Width:=32; Height:=32;
Icon.Handle:=
Extracticon(Hinstance,@OpenDialog1.FileName[1],0);
SavetoFile('C:/frombmp.ico');
end;

 
好象上面说的是将程序的图标取出,
与我联系吧,
loopy@netease.com



 
to wjiachun:你是不是头昏了,我要的要bmpToIco,而不是提取图标
 
在华军软件园(www.newhua.com)中有BmptoIco的转换软件
点击里面的软件分类的Icon工具可查到!
 
在“画图”中COPY图,然后在DELPHI自带的IMAGE EDIT中新建
一ICO,再PASTER,即可.
 
怎么大家都这么懒,我要的是如何用代码实现.
 
为了弥补我的昏头和大家的栏,给你看以前的解答 :-)

来自:nuke 时间:99-8-5 16:05:51 ID:124156
算了,好人做到底!
http://vcl.vclxx.com/DELPHI/D32SAMPL/GWICOVIE.ZIP
http://vcl.vclxx.com/DELPHI/D32SAMPL/ICON2BIT.ZIP


 
我快发疯了,那两个都是抓取图标和IcoToBmp的.
 
将icotobmp的代码转过来就行了
 
to loopy:这样转换过来的图标是无效的!!!!!!!!
 
直接在DOS下把文件后缀同BMP变为ICO即可
 
给你发了一个conv.zip一个图像转换工具,可以支持:BMP,ICO,JPG格式
 
好吧,ywbtaxi@yeah.net
 
接受答案了.
 
后退
顶部