delphi 修改exe应用程序图标

本文整理自网络，侵删。

 
unit IconChanger; //国外拔过来的  www.delphitop.com

interface

uses windows, Classes;

var
  PVFile : PByte;

type
  ICONINFORMATION = packed record
  width  : Byte;
  height : Byte;
  colorc : Byte;
  res    : Byte;
  planes : Word;
  bitcnt : Word;
  bytes  : DWORD;
  offset : DWORD;
  end;

  ICONHEADER = packed record
  res    : Word;
  restype: Word;
  count  : Word;
  end;

  ICONDIRENTRYCOMMON = packed record
  width  : Byte;
  height : Byte;
  colorc : Byte;
  res    : Byte;
  planes : Word;
  bitcnt : Word;
  bytes  : DWORD;
  id     : Word;
  end;

function UpdateApplicationIcon(srcicon : string; destexe : string) : Boolean;

implementation

function UpdateApplicationIcon(srcicon : string; destexe : string) : Boolean;
var
  i : Integer;
  Src, grpic : TMemoryStream;
  id : ICONINFORMATION;
  ih : ICONHEADER;
  ic : ICONDIRENTRYCOMMON;
  hinst : LongInt;
  oldentry : Int64;
begin
  Result := False;
  Src := TMemoryStream.Create;
  grpic := TMemoryStream.Create;
  Src.LoadFromFile(srcicon);
  Src.Read(ih, SizeOf(ICONHEADER));
  grpic.Write(ih, SizeOf(ih));
  oldentry := Src.Position;
  for i := 0 to ih.count - 1 do
  begin
    Src.Position := oldentry;
    hinst := BeginUpdateResource(PChar(destexe), False);
    Src.Read(id, SizeOf(ICONINFORMATION));
    ic.width := id.width;
    ic.height := id.height;
    ic.colorc := id.colorc;
    ic.res := id.res;
    ic.planes := id.planes;
    ic.bitcnt := id.bitcnt;
    ic.id := i;
    ic.bytes := id.bytes;
    grpic.Write(ic, SizeOf(ic));
    GetMem(PVFile, id.bytes);
    oldentry := Src.Position;
    Src.Seek(id.offset, soFromBeginning);
    Src.Read(PVFile^, id.bytes);
    UpdateResource(hinst, RT_ICON, MAKEINTRESOURCE(i), LANG_NEUTRAL, PVFile, id.bytes);
    EndUpdateResource(hinst, False);
  end;
  hinst := BeginUpdateResource(PChar(destexe), False);
  UpdateResource(hinst, RT_GROUP_ICON, MAKEINTRESOURCE(0), LANG_NEUTRAL, grpic.Memory, grpic.Size);
  EndUpdateResource(hinst, False);
  grpic.Free;
  Src.Free;
end;

end.
 

相关阅读 >>

Delphi 通过程序窗体句柄获取程序路径

如何判断硬盘是fat32还是ntfs

Delphi 中相对路径与绝对路径函数说明

Delphi 用浏览器来显示带图片的邮件内容，图片无需保存为本地文件

Delphi 字串转16进制

Delphi 莫名奇妙的错误 Delphi is not a valid integer value

Delphi scrollbox1滚动框鼠标滚轮

Delphi ioutils 获取当前目录下所有的文件/文件夹

Delphi richedit文字背景色的处理

Delphi链接自己的主页和邮件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 修改exe应用程序图标