zoukankan      html  css  js  c++  java
  • delphi编写提取exe文件的ICO图标

    http://www.duote.com/tech/4/11797.html

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

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

    核心提示:会写自己的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<count)then <="" p="">

    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 lazarus opengl 网页操作自动化, 图像分析破解,游戏开发
  • 相关阅读:
    Django Form组件的扩展
    Python TCP与UDP的区别
    Python三次握手和四次挥手
    网络基础之网络协议
    Python 类方法、实例方法、静态方法的使用与及实例
    python深浅拷贝
    2021牛客寒假算法基础集训营1 题解
    01 Trie 专题
    MOTS:多目标跟踪和分割论文翻译
    牛客巅峰赛S2第6场题解
  • 原文地址:https://www.cnblogs.com/delphi-xe5/p/7519839.html
Copyright © 2011-2022 走看看