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

delphi-动态修改exe文件的图标 delphi 动态修改exe文件的图标 unit ICOEXE;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, shellapi;type TForm1 = 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 } if OpenDialog1.Execute then SourceFile := OpenDialog1.FileName else exit; if AnsiUpperCase(ExtractFileExt(SourceFile)) .EXE then begin ShowMessage(AnsiUpperCase(ExtractFileExt(SourceFile))); exit; end; Edit1.Text := SourceFile; if OpenDialog2.Execute then DestFile := OpenDialog2.FileName else exit; if AnsiUpperCase(ExtractFileExt(DestFile)) .EXE then exit; Edit2.Text := DestFile; SourceIcon := TIcon.Create; case ExtractIcon(handle, PChar(SourceFile), UINT(-1)) of 0: begin ShowMessage(源程序没有图标); exit; end; 1:; else ShowMessage(源程序有多个图标,本程序选择第一个图标); end; SourceIcon.Handle := ExtractIcon(handle, PChar(SourceFile), 0); //选择第一个图 标 DestIcon := TIcon.Create; //选择第N个图标为 ExtractIcon(handle,PChar(Source file), N - 1) case ExtractIcon(handle, PChar(DestFile), UINT(-1)) of 0: begin ShowMessage(目的程序没有图标); exit; end; 1:; else ShowMessage(目的程序有多个图标,本程序选择第一个图标替换); end; DestIcon.Handle := ExtractIcon(handle, PChar(DestFile), 0); //选择第一个图标 SIconStream := TMemoryStream.Create; DestIcon.SaveToStream(sIconStream); if sIconStream.size icolen then ShowMessage(SIcon.sizeicolen); SDest := TMemoryStream.Create; sDest.LoadFromFile(DestFile); i := 0; j := 0; //以下程序查找目的图标在目的程序中的位置 while i sDest.size do begin itemp := i; j := 126; { repeat SDest.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 SD