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 网页操作自动化, 图像分析破解,游戏开发
  • 相关阅读:
    有符号数与无符号数的转换
    二进制的反码
    c 位运算
    安装和使用PhantomJS
    SecureCRT图形界面
    php curl模拟登陆抓取数据
    sublime text 3 配置方法
    chrome不支持12px,解决办法
    对下拉的一些操作记录
    Vue tree自定义事件注意点
  • 原文地址:https://www.cnblogs.com/delphi-xe5/p/7519839.html
Copyright © 2011-2022 走看看