delphi-动态修改exe文件的图标

delphi 动态修改exe文件的图标 unit ICOEXE;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls, shellapi;typeTForm1 = class(TForm)Label1:TLabel;Edit1:TEdit;Label2:TLabel;Edit2:TEdit;Button1:TButton;Button2:TButton;OpenDialog1:TOpenDialog;OpenDialog2:TOpenDialog;StatusBar1:TStatusBar;procedure Button2Click(Sender:TObject);procedure Button1Click(Sender:TObject);private Private declarations public Public declarations end;varForm1:TForm1;implementation$R *.dfmprocedure TForm1.Button2Click(Sender:TObject);beginClose;end;procedure TForm1.Button1Click(Sender:TObject);constreadlen = 10; /每次读取字节数，可改变icolen = 766; /32*32图标长度,根据研究前126为图标头,后640为图标数据vari, j, itemp, nPos:int64; / nPos为目的图标在目的文件的位置ci, cj:array0.readlen - 1 of char;SourceFile, DestFile:string; /如果要把记事本图标换成瑞星杀毒软件图标bOK:boolean; /则SourceFile=C:windowsnotepad.exe,DestFile:=C:Program Filesrisingravravmon.exeSourceIcon, DestIcon:TIcon;SIconStream, s, sDest:TMemoryStream;beginbOK := false;if OpenDialog1.Execute thenSourceFile := OpenDialog1.FileNameelseexit;if AnsiUpperCase(ExtractFileExt(SourceFile) .EXE thenbeginShowMessage(AnsiUpperCase(ExtractFileExt(SourceFile);exit;end;Edit1.Text := SourceFile;if OpenDialog2.Execute thenDestFile := OpenDialog2.FileNameelseexit;if AnsiUpperCase(ExtractFileExt(DestFile) .EXE thenexit;Edit2.Text := DestFile;SourceIcon := TIcon.Create;case ExtractIcon(handle, PChar(SourceFile), UINT(-1) of0:begin ShowMessage(源程序没有图标);exit;end;1:;elseShowMessage(源程序有多个图标,本程序选择第一个图标);end;SourceIcon.Handle := ExtractIcon(handle, PChar(SourceFile), 0);/选择第一个图标DestIcon := TIcon.Create;/选择第N个图标为 ExtractIcon(handle,PChar(Sourcefile), N - 1)case ExtractIcon(handle, PChar(DestFile), UINT(-1) of0:begin ShowMessage(目的程序没有图标);exit;end;1:;elseShowMessage(目的程序有多个图标,本程序选择第一个图标替换);end;DestIcon.Handle := ExtractIcon(handle, PChar(DestFile), 0); /选择第一个图标SIconStream := TMemoryStream.Create;DestIcon.SaveToStream(sIconStream);if sIconStream.size icolen thenShowMessage(SIcon.sizeicolen);SDest := TMemoryStream.Create;sDest.LoadFromFile(DestFile);i := 0;j := 0; /以下程序查找目的图标在目的程序中的位置while i sDest.size dobeginitemp := i;j := 126; repeatSDest.Position:=i;sDest.read(ci,Readlen);SiconStream.Position:=j;SIconStream.Read(cj,Readlen);i:=i+Readlen;j:=j+Readlen;until (String(ci)=String(cj) and (isDest.size) and (jicolen); ci := ;cj := ;while (string(ci) = string(cj) and (i SDest.size) and (j icolen) dobegini := i + readlen;j := j + readlen;SDest.Position := i;SDest.read(ci, readlen);SiconStream.Position := j;SiconStream.Read(cj, readlen);end;if j sDest.Position + 640 then /将目的程序剩余数据拷入beginsDest.Position := sDest.Position + 640;s.CopyFrom(sDest, sDest.Size - sDest.Position);end;s.SaveToFile(Extractfilepath(application.exename) + Result.exe);SourceIcon.Free;DestIcon.Free; /改造好的程序存放在本目录Result.exe文件中SIconStream.Fre