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

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

end;var

Form1:TForm1;implementation{$R*.dfm}procedureTForm1.Button2Click(Sender:TObject);

begin

Close;

end;procedureTForm1.Button1Click(Sender:TObject);

const

readlen=10;//每次读取字节数，可改变

icolen=766;//32*32图标长度,根据研究前126为图标头,后640为图标数据

var

i,j,itemp,nPos:int64;//nPos为目的图标在目的文件的位置

ci,cj:array[0..readlen-1]ofchar;

SourceFile,DestFile:string;//如果要把记事本图标换成瑞星杀毒软件图标

bOK:boolean;//则SourceFile=C:\windows\notepad.exe,DestFile:=C:\Progra

mFiles\rising\rav\ravmon.exe

SourceIcon,DestIcon:TIcon;

SIconStream,s,sDest:TMemoryStream;

begin

bOK:=false;

ifOpenDialog1.Executethen

SourceFile:=OpenDialog1.FileName

else

exit;

ifAnsiUpperCase(ExtractFileExt(SourceFile)).EXEthen

begin

ShowMessage(AnsiUpperCase(ExtractFileExt(SourceFile)));

exit;

end;

Edit1.Text:=SourceFile;

ifOpenDialog2.Executethen

DestFile:=OpenDialog2.FileName

else

exit;

ifAnsiUpperCase(ExtractFileExt(DestFile)).EXEthen

exit;

Edit2.Text:=DestFile;

SourceIcon:=TIcon.Create;

caseExtractIcon(handle,PChar(SourceFile),UINT(-1))of

0:

beginShowMessage(源程序没有图标);

exit;

end;

1:;

else

ShowMessage(源程序有多个图标,本程序选择第一个图标);

end;

SourceIcon.Handle:=ExtractIcon(handle,PChar(SourceFile),0);

//选择第一个图

标

DestIcon:=TIcon.Create;

//选择第N个图标为ExtractIcon(handle,PChar(Source

file),N-1)

caseExtractIcon(handle,PChar(DestFile),UINT(-1))of

0:

beginShowMessage(目的程序没有图标);

exit;

end;

1:;

else

ShowMessage(目的程序有多个图标,本程序选择第一个图标替换);

end;

DestIcon.Handle:=ExtractIcon(handle,PChar(DestFile),0);//选择第一个图标

SIconStream:=TMemoryStream.Create;

DestIcon.SaveToStream(sIconStream);

ifsIconStream.sizeicolenthen

ShowMessage(SIcon.sizeicolen);

SDest:=TMemoryStream.Create;

sDest.LoadFromFile(DestFile);

i:=0;

j:=0;//以下程序查找目的图标在目的程序中的位置

whileisDest.sizedo

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(jico