更换exe图标
所属分类:Windows编程
开发工具:Delphi
文件大小:475KB
下载次数:1
上传日期:2020-08-26 17:59:22
上 传 者:
大漠驼铃
说明: 换可exe文件的图标,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;
(Change the icon of EXE file)
文件列表:
chexe.dpr (227, 2019-03-22)
chexe.dproj (5166, 2019-03-22)
chexe.dproj.local (608, 2019-03-22)
chexe.exe (1081344, 2019-04-13)
chexe.identcache (138, 2019-04-13)
chexe.res (5280, 2019-03-22)
Unit1.dcu (10325, 2019-04-13)
Unit1.dfm (1902, 2019-03-22)
Unit1.pas (3607, 2019-04-13)
近期下载者:
相关文件:
收藏者: