delphi_动态修改exe文件的图标.doc

delphi_动态修改exe文件的图标.doc

ID:48830727

大小:32.50 KB

页数:8页

时间:2020-01-31

delphi_动态修改exe文件的图标.doc_第1页
delphi_动态修改exe文件的图标.doc_第2页
delphi_动态修改exe文件的图标.doc_第3页
delphi_动态修改exe文件的图标.doc_第4页
delphi_动态修改exe文件的图标.doc_第5页
资源描述:

《delphi_动态修改exe文件的图标.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、.word可编辑.delphi动态修改exe文件的图标unitICOEXE;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:TButt

2、on;OpenDialog1:TOpenDialog;OpenDialog2:TOpenDialog;StatusBar1:TStatusBar;procedureButton2Click(Sender:TObject);procedureButton1Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}.专业.专注..word可编辑.end;varForm1:TForm1;implementation{$R*

3、.dfm}procedureTForm1.Button2Click(Sender:TObject);beginClose;end;procedureTForm1.Button1Click(Sender:TObject);constreadlen=10;//每次读取字节数,可改变icolen=766;//32*32图标长度,根据研究前126为图标头,后640为图标数据vari,j,itemp,nPos:int64;//nPos为目的图标在目的文件的位置ci,cj:array[0..readlen-1]ofcha

4、r;SourceFile,DestFile:string;//如果要把记事本图标换成瑞星杀毒软件图标bOK:boolean;//则SourceFile='C:windowsotepad.exe',DestFile:='C:ProgramFilesrisingravravmon.exe'SourceIcon,DestIcon:TIcon;SIconStream,s,sDest:TMemoryStream;.专业.专注..word可编辑.beginbOK:=false;ifOpenDialog1.E

5、xecutethenSourceFile:=OpenDialog1.FileNameelseexit;ifAnsiUpperCase(ExtractFileExt(SourceFile))'.EXE'thenbeginShowMessage(AnsiUpperCase(ExtractFileExt(SourceFile)));exit;end;Edit1.Text:=SourceFile;ifOpenDialog2.ExecutethenDestFile:=OpenDialog2.FileNameelseex

6、it;ifAnsiUpperCase(ExtractFileExt(DestFile))'.EXE'thenexit;Edit2.Text:=DestFile;SourceIcon:=TIcon.Create;caseExtractIcon(handle,PChar(SourceFile),UINT(-1))of0:.专业.专注..word可编辑.beginShowMessage('源程序没有图标');exit;end;1:;elseShowMessage('源程序有多个图标,本程序选择第一个图标');end

7、;SourceIcon.Handle:=ExtractIcon(handle,PChar(SourceFile),0);//选择第一个图标DestIcon:=TIcon.Create;//选择第N个图标为ExtractIcon(handle,PChar(Sourcefile),N-1)caseExtractIcon(handle,PChar(DestFile),UINT(-1))of0:beginShowMessage('目的程序没有图标');exit;end;1:;else.专业.专注..word可编辑.S

8、howMessage('目的程序有多个图标,本程序选择第一个图标替换');end;DestIcon.Handle:=ExtractIcon(handle,PChar(DestFile),0);//选择第一个图标SIconStream:=TMemoryStream.Create;DestIcon.SaveToStream(sIconStream);ifsIconStream.sizeicolenthe

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。