delphi编写提取exe文件的ICO图标-Delphi-优质IT资源分享社区

admin
管理员
管理员
  • UID1
  • 粉丝27
  • 关注4
  • 发帖数581
  • 社区居民
  • 忠实会员
  • 原创写手
阅读:150回复:0

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

楼主#
更多 发布于:2016-06-10 20:05

 会写自个的EXE程序,但没一个好看的EXE图标,是不是很惋惜啊?很多软件都有很好看的图标,咱们为何不提
存入来呢?下面教你怎样用delphi编程获取EXE文件的图标,并
保存为ICO
格式的.
代码如下:
网站怎样进步页面关键字排行的办法用U盘安装Win8双系统图文教程
SEO常犯的一些过错及改进建议实例讲解巧用延时自拍:奇妙的设想
procedureTForm1.getIcon;
var
告诉你iOS5不易被发现的功用拍摄新手怎样防止5个简单犯的过错
向长辈问候:平板在iPad之前都长这么天价设备都白瞎 被疏忽的音箱摆位秘籍
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;
界面:




会写自个的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;
界面:













优质IT资源分享社区为你提供此文。
本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。
Delphi教程视频
优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客