怎样修改一个exe文件的图标，原理我大概知道，请给代码，谢谢

我的意思是要修改的文件是一个已经做好了的EXE可执行文件。我想知道具体怎样获得图标在该文件的偏移地址，怎样修改等做法

73 个解决方案

#1

知道原理就自己写啊,这样才会进步啊

#2

在delphi菜单的project项的options选项中的第二个标签页application中，双击load icon
 就可以换exe的图标了！

#3

API:
BOOL UpdateResource(
HANDLE hUpdate, // 用BeginUpdateResource获得的Handle
LPCTSTR lpType, // 资源类型名称(例如 RT_ICON, RT_ANIICON, 等)
LPCTSTR lpName, // 需要修改的资源的名称
WORD wLanguage, // 资源的语言类型, 可以使用MAKELANGID构造
LPVOID lpData, // 存放资源的二进制数据的地址
DWORD cbData // 用字节描述的数据的长度
); 

还需要参考
BeginUpdateResource,
EndUpdateResource,
LoadIcon,
LoadString,
LockResource,
MAKEINTRESOURCE,
MAKELANGID,
SizeofResource

#4

to Linux2001(含笑饮砒霜)
就是不知道用什么方法了，高手指点一下就快一些嘛，
to wwwwwwww(我我)　
不是你说得这样，我的exe文件是做好了，没有源代码

#5

to MouseBrother():
我知道这些，试过了，我做不对，搞点代码给我了

#6

在Delphi中使用动态图标


在应用程序的编写中，组合框（ComboBox）、列表框（ListBox）、等常见的部件，通常不仅要用于显示文字，而且还要显示其与文字相关的图标。在一般的Windows应用程序中，这些图标的显示都要随列出的显示文本的变化而变化，例如在组合框中列出当前目录下的所有文件时，在组合框左边就显示与文件名相关联的图标，这就是所谓的动态图标。在Delphi中使用动态图标的步骤如下：

一、图标的获取

要使用动态图标，首先要解决的是如何获得显示文本和与其相关联的图标句柄。该图标通过文件关联由系统注册表决定，并且在Windows编程中同一文件(或子目录，或文件夹）在桌面上也可能有两种显示结果，这就是DOS文件名与显示名(Display Name)。如果我们的应用程序不需要有像Windows资源浏览器那样的效果，则可以使用FindFirst()和FindNext()二个函数以及FindClose()过程来获得DOS文件名，否则我们就应当使用WindowsAPI来获得显示名。在获得文件名的同时可通过使用ShellAPI.pas中的SHGetFileInfo()函数来获得其图标句柄HICON，说明如下：

function SHGetFileInfo(pszPath: PAnsiChar; dwFileAttributes: DWORD;var psfi: TSHFileInfo; cbFileInfo

uFlags: UINT): DWORDl;

pszPath 参数：指定的文件名。当uFlags的取值中不包含 SHGFI_PIDL时，可直接指定；否则pszPath要通过计算获得，不能直接指定；

dwFileAttributes参数：文件属性，仅当uFlags的取值中包含SHGFI_USEFILEATTRIBUTES时有效，一般不用此参数；

psfi 参数：返回获得的文件信息，是一个记录类型，有以下字段：

hIcon: HICON; ／／文件的图标句柄

iIcon: Integer; ／／图标的系统索引号

dwAttributes: DWORD; ／／文件的属性值

szDisplayName: array [0..MAX_PATH－1] of AnsiChar; ／／文件的显示名

szTypeName: array [0..79] of AnsiChar; ／／文件的类型名

cbFileInfo 参数：psfi的比特值；

uFlags 参数：指明需要返回的文件信息标识符，常用的有以下常数：

SHGFI_ICON; ／／获得图标

SHGFI_DISPLAYNAME; ／／获得显示名

SHGFI_TYPENAME; ／／获得类型名

SHGFI_ATTRIBUTES;／／获得属性

SHGFI_LARGEICON; ／／获得大图标

SHGFI_SMALLICON; ／／获得小图标

SHGFI_PIDL;／／ pszPath是一个标识符

函数SHGetFileInfo()的返回值也随uFlags的取值变化而有所不同。通过调用SHGetFileInfo()可以由psfi参数得到文件的图标句柄，但要注意在uFlags参数中不使用SHGFI_PIDL时，SHGetFileInfo()不能获得"我的电脑"等虚似文件夹的信息。

二、图标的加载

使用Delphi提供的TImageList组件，通过调用CommCtrl .pas中的函数ImageList_AddIcon()来加载得到的图标，并要保证其索引号与显示文本相对应。说明如下：

function ImageList_AddIcon(ImageList: HIMAGELIST; ／／加载图标的ImageList句柄

Icon: Hicon ／／加载的图标句柄 ): Integer; ／／返回图标在ImageList中的索引号

在需要指明图标索引号时可使用ImageList_AddIcon()的返回值。

三、图标和文本的绘图式输出

对于组合框、列表框等不能直接显示图标的组件，由于要求显示图标的同时又要同时显示文本，可通过设置其相应的Style属性达到目的，示例如下：

组合框：ComboBox1.Style:=csOwnerDrawVariable根据实际使用经验最好不要在ObjectInspector窗体中直接设置，而应将代码添加在程序的适当位置

否则可能出现绘图区域高度不规则变化

列表框：ListBox1.Style:=lbOwnerDrawVariable

状态栏：StatusBar1.Panels[i].Style:= psOwnerDraw 不能使用简单状态栏，i是状态栏中要绘制图标的某一窗格索引号

图形输出可使用TImageList的ImageList1.Draw()方法，而文本输出则可使用TCanvas的TextOut()方法，它由组件的Canvas属性继承得到，显然没有Canvas属性的组件不能使用此方法显示图标。

对于可直接显示图标的组件，直接指定其Images、StateImages等需要的图标属性为相应的TimageList组件名，并通过指定图标的索引号则可显示图标。需要注意的是：在使用大图标时，必须先调用TImageList的CreateSize()方法指定可加载图标的尺寸，并且在每次调用TImageList的Clear方法后都要重新调用CreateSize()。

使用TImageList的ImageList1.Clear方法清除已加载的图标，常在需要刷新时使用。

#7

可是我要怎样把握的图标写到exe文件里去呢

#8

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

#9

我也想知道

#10

是说自己的文件,还是别人做好的exe?

#11

这还用问吗，当然是任意EXE文件

#12

是不是只有EXE文件，没有源代码，所以不能在Dephi里修改图标？而是想直接在EXE文件里修改？？（我想是不是得先获得这个文件的代码，然后这些代码里该有对图标的描述，你希望在这里去修改，你看我理解的对不对啊！！）

我不会，所以我也想知道！

#13

正在努力实现中，我看这种代码别人是不会轻易的提供的！

#14

{I don't know why CSDN hates such words like 'up' and 'gz'.
I also could not understand know why CSDN does not allow its member reply one's question more three times continuously.}

if (pos('up')=0) or (pos('gz')=0) then 
begin
showmessage('Fuck CSDN's goddam rules!');
end;

//Jan. 12th, the memorable day,cet6 is coming towards me,a delphi fun...

#15

<b>up!</b>

#16

MessageBox(0,'Sorry,but the HTML tag could not be translated.'+#13#10#13#10+'Press "AnyKey" to continue.','Fatal Error!',mb_ok+mb_iconerror);

#17

大家好啊，这里，是我们学习的好地方

#18

         谁能提供原代码啊，不提供，说的详细点也好啊！

#19

to tangt(豪鬼):不是自己的文件，是一个已经做好了的exe可执行文件
大家帮帮忙，我加分啦

#20

我正在找

#21

to thedream(梦幻使者)　:解决了，记得发给我一份，谢谢！ [e-mail]

#22

收一把

#23

关注下

#24

把你知道的说给大家听听，大家帮你想想。

#25

主要是用
API:
BOOL UpdateResource(
HANDLE hUpdate, // 这个能取得
LPCTSTR lpType, // 修改图标应该是RT_ICON吧
LPCTSTR lpName, // 怎样取得这个？？//需要修改的资源的名称
WORD wLanguage, // 怎样取得这个？？//资源的语言类型, 可以使用MAKELANGID构造
LPVOID lpData, // 怎样取得这个？？//存放资源的二进制数据的地址
DWORD cbData // 怎样取得这个？？//用字节描述的数据的长度
); 

解决上面的问题就可以了

#26

^^^

#27

不允许回复为空！！不允许有 gz、up！！！！来点创意吧！！！

#28

没有gz,
没有up.

#29

bu kong

#30

不就是想修改一下EXE文件的图标嘛
使用软件EXESCOPE就可以了。

#31

好哦。

#32

我想他的意思是想了解明白，自己做一个

#33

^^^^^^^^^

#34

cet6结束了，继续<b>up!</b>

#35

还没弄出来，怎么列出exe中的资源呢

#36

delphi 下的例子demo目录里1个叫explor什么的就是干你说的活

#37

注意那个例子自己声明了1个类

#38

资源列出来了，再怎么办？？？？我想试试删除资源，可是也失败，麻烦高手看看
function aaa(hModule:HModule; lpszType:PChar; lpszName:PChar; lParam:LongInt):Boolean; stdcall;
var resname:string;
  hh,lhandle:Thandle;
  hresload:hrsrc;
  hhicon:hicon;
  lpResLock:^char;
begin
//  if  DWORD(ResName)<$10000 then
//    Form1.Memo1.Lines.add(inttostr(dword(lpszName)));
//  lhandle:=BeginUpdateResource(pchar('c:\notepad.exe'),false);

hhicon:=findresource(hmodule,lpszname,rt_icon);
hResLoad:= LoadResource(hmodule, hhicon);
lpResLock:= LockResource(hResLoad);

lhandle:=BeginUpdateResource(pchar('c:\notepad.exe'),false);
UpdateResource(lhandle,rt_icon,lpszname,LANG_CHINESE ,nil,
  SizeofResource(lhandle,hhicon));
  if  endupdateresource(lhandle,false) then showmessage('ok');
  Result:=True
end;

procedure TForm1.Button1Click(Sender: TObject);
var hres:Thandle;
begin
hres:=LoadLibraryEx (PChar ('c:\notepad.exe'), 0,Load_Library_As_DataFile);
EnumResourceNames(hres,RT_ICON,@aaa,0);
freelibrary(hres);
end;

#39

~

#40

问问那些作汉化的朋友？

#41

谁测试并修改以下代码，我怎么也不能测试成功？？
to thedream(梦幻使者):    解决了，别忘了告诉我！：）  [e-mail]

function MakeLangID(PrimaryLanguage,SubLanguage : word) : DWord; 
begin 
    Result:=SubLanguage shl 10; 
    Result:=Result or PrimaryLanguage; 
end; 

procedure change; 
var 
 hResLoad:HRSRC;     // handle to loaded resource 
 hExe:THANDLE;        // handle to existing .EXE file 
 hRes:HRSRC;         // handle/ptr. to res. info. in hExe 
 hUpdateRes:THANDLE;  // update resource handle 
 lpResLock:^char;    // pointer to resource data 
 return:BOOL; 
begin 
 hExe := LoadLibrary('D:\M.exe'); 
 if hExe=0 then messagebox(0,'error open exe','error',0); 

 hRes := FindResource(hExe, 'MAINICON', RT_ICON); 
 if hRes=0 then messagebox(0,'can not find ico','error',0); 

 hResLoad:= LoadResource(hExe, hRes); 
 if hResLoad=0 then messagebox(0,'Load error','error',0); 

 lpResLock:= LockResource(hResLoad); 
 if lpReslock=nil then messagebox(0,'can not lock resource','error',0); 
  
 hUpdateRes:= BeginUpdateResource('d:\P.exe', FALSE); 
 if hUpdateRes=0 then messagebox(0,'can not open file for write','error',0); 

 return:= UpdateResource(hUpdateRes,       // update resource handle 
     RT_ICON,                              // change Icon resource 
     'MAINICON',                           // Icon name 
     MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL),  // neutral language 
     lpResLock,                            // ptr to resource info 
     SizeofResource(hExe, hRes));          // size of resource info. 
 if return=false then messagebox(0,'can not add res','error',0); 

 if (not EndUpdateResource(hUpdateRes, FALSE)) then messagebox(0,'can not make change','error',0); 

 if (not FreeLibrary(hExe)) then messagebox(0,'can not free exe','error',0); 
end; 

#42

在2000下可以得吧

#43

收藏

#44

~

#45

虽然不懂，但值得学习!

#46

~

#47

关注

#48

有个简单的方法， 打开IMAGEEDIT，编辑你的程序的.res文件，保存如如ICO，文件
 让后一个
   application.Icon.Handle:=LoadIcon(hInstance,'yourICON');
 就可以了

#49

//

#50

我有一个用C++写的，你要不要源码！
[e-mail]