您的位置: 首页 > 软件教程 > Delphi教程专题 > delphi编写提取exe文件的ICO图标

delphi编写提取exe文件的ICO图标

7.0分
出处:天下网吧 时间:2011-08-05

您可能感兴趣的话题: delphi  

核心提示:会写自己的EXE程序,但没一个好看的EXE图标,是不是很遗憾啊?很多软件都有很好看的图标,

  会写自己的EXE程序,但没一个好看的EXE图标,是不是很遗憾啊?很多软件都有很好看的图标,我们为什么不提取出来呢?下面教你怎么用delphi编程提取EXE文件的图标,并保存为ICO格式的.

  代码如下:

procedureTForm1.getIcon;

var

Count:Integer;

FileName:String;

i:integer;

begin

if(FileName<>Edit1.Text)then

begin

FileName:=Edit1.Text;

I:=0;

Count:=ExtractIcon(Application.Handle,PChar(FileName),

$FFFFFFFF);

end

else

Inc(I);

if(I

Image1.Picture.Icon.Handle:=

ExtractIcon(Application.Handle,PChar(FileName),I)

else

ShowMessage(’没有找到!’);

end;

procedureTForm1.Button1Click(Sender:TObject);

begin

getIcon;

end;

procedureTForm1.Button2Click(Sender:TObject);

begin

opendialog1.Execute;

edit1.Text:=opendialog1.FileName;

end;

procedureTForm1.Button3Click(Sender:TObject);

begin

savedialog1.Execute;

image1.Picture.SaveToFile(savedialog1.FileName);

end;

界面:

delphi编写提取exe文件的ICO图标

网友评论
no543216789 2011-06-21 18:57:09 回复
转载时根本没看清?这样提取出来的图标是有问题的。
no543216789 2011-06-21 18:57:09 回复
转载时根本没看清?这样提取出来的图标是有问题的。
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Visual Basic是一种由微软公司开发... [详细]
Oracle Database,又名Orac... [详细]
Visual Basic.NET是从 Vis... [详细]