老问题：关于EXE的资源替换，只用API解决。求例子，完整，适用给分(300分)

晶晶 · 2002-10-28

我刚刚遇到一个问题： 在为一个程序改资源时，用beginupdateresource，updateresource，endupdateresource 几个函数时问题百出。虽然API说明中说的明白，但还是很多问题出来，实在没有辙，上来 求救了！千万别跟我说分析PE结构，那个读取资源还可以（几层循环也不简单），导入资 源嘛（更难了），我还没有那个算法功力[

]，最好有全部用API函数更换资源的例子，更 换的资源内容要包括：ICON，BITMAP，STRING，总之，越详细越好！！！分数先300，成功 后加200，一个问题500分，决不食言！

晶晶 · 2002-10-28

我的E-mail:tufeiping@vip.sina.com mailto:tufeiping@vip.sina.com

wukw · 2002-10-29

把exe里面的资源通通取出来   作者：king_koo 下载例子源代码 　           一、前言 　　不知大家用过exescope没有，那是日本鬼子写的一个很有用的东西，它能把exe等pe 格式(portable executable)文件的资源(图标、位图、对话框、声音等等)分析出来，并 能改写回去。当然vc的ide也有类似功能。大家是不是觉得很神秘?其实只要弄清了pe文件 的结构，你也可以写一个类似的工具出来。下面是我近来对pe文件的分析经验，给大家 作参考。同时希望看到有中国人能写出比日本鬼子更牛的分析工具来。     二、重要的数据结构 　　PE格式简要说明：(更详细的资料见http://vcangle.8u8.com文件格式专页) PE文件总结构如下表：     　 DOS MZ header  ;dos头 DOS stub       ;dos附加段 PE header      ;NT头 Section table  ;节表 Section 1      ;第一节 Section 2      ; Section ... Section n      ;第n节   其中NT头:   typedef struct _IMAGE_NT_HEADERS {   DWORD Signature;//PE文件头标志 :"PE/0/0"。   IMAGE_FILE_HEADER FileHeader;          //PE文件物理分布的信息   IMAGE_OPTIONAL_HEADER32 OptionalHeader;//PE文件逻辑分布的信息   } IMAGE_NT_HEADERS32, *PIMAGE_NT_HEADERS32;   节表数据结构

可参考winnt.h)   typedef struct _IMAGE_SECTION_HEADER {   BYTE    Name[IMAGE_SIZEOF_SHORT_NAME];//节表名称,如“.text”   union {  DWORD   PhysicalAddress;     //物理地址                DWORD   VirtualSize;         //真实长度 } Misc; DWORD   VirtualAddress;         //RVA DWORD   SizeOfRawData;          //物理长度 DWORD   PointerToRawData;       //节基于文件的偏移量 DWORD   PointerToRelocations;   //重定位的偏移 DWORD   PointerToLinenumbers;   //行号表的偏移 WORD    NumberOfRelocations;    //重定位项数目 WORD    NumberOfLinenumbers;    //行号表的数目 DWORD   Characteristics;        //节属性   } IMAGE_SECTION_HEADER, *PIMAGE_SECTION_HEADER;   2.2位图文件格式。由文件头,位图信息和数据段组成。   typedef struct tagBITMAPFILEHEADER { // bmfh文件头       WORD    bfType; //"BM"       DWORD   bfSize;       WORD    bfReserved1;       WORD    bfReserved2;       DWORD   bfOffBits;   } BITMAPFILEHEADER;   typedef struct tagBITMAPINFO { // bmi----位图信息       BITMAPINFOHEADER bmiHeader; //   ----位图信息头       RGBQUAD          bmiColors[1];// ----调色板*   } BITMAPINFO;   typedef struct tagBITMAPINFOHEADER{ // bmih 位图信息头       DWORD  biSize; //该结构大小       LONG   biWidth;       LONG   biHeight;       WORD   biPlanes;       WORD   biBitCount;       DWORD  biCompression;       DWORD  biSizeImage; //位图数据大小       LONG   biXPelsPerMeter;       LONG   biYPelsPerMeter;       DWORD  biClrUsed;       DWORD  biClrImportant;   } BITMAPINFOHEADER; //该结构后紧接着就是DATA了。               三、取资源主要思路 　　先要判断是否PE文件。文件头两byte应为0x4d5a即("MZ")，然后到地址0x3c中读出PE 文件头(_IMAGE_NT_HEADERS)。判断文件头结构的Signature是否为17744(即"PE/0/0")。 　　读出节表(_IMAGE_SECTION_HEADER)，判断有没有资源节。我采用了一个简单的方法 ：节表名为".rsrc/0/0"即是资源节。(注：据说该法不定可靠) 　　如有资源节，则读取资源目录(_IMAGE_RESOURCE_DIRECTORY)和资源入口(_IMAGE_RES OURCE_DIRECTORY_ENTRY)。资源在pe文件中处一树型结构中，可有三层。在资源目录根部 ，如果资源入口的资源名是一个id,那么它代表一种资源类型。否则，它指向下一层资源 入口。(祥见例程) 　　读出具体资源的数据来。具体资源的入口(_IMAGE_RESOURCE_DATA_ENTRY)在就是资源 树的叶子。它的OffsetToData成员指明了具体资源的物理位置。不过特别要注意的是，Of fsetToData并不是具体资源在文件中的实际偏移，具体见我的例程。具体资源的长度则由 Size成员指定。 　　导出bmp资源。pe文件里的bmp资源由BITMAPINFO部分和BITMAPDATA部分组成。我们只 要为它构造一个文件头(BITMAPFILEHEADER)，就可以写成bmp文件了。这里特别要注意的 是BITMAPINFO的bmiColors成员是未定长的。你要为它 指明长度，以申请内存。 好了，我不说了，有什么不明白就看例程吧。     四、例子程序简介 　　我的例子程序基本实现了读取pe文件的资源信息，并能把位图显示、导出。其它资源 的操作还在研究中。由于作者水平有限，在分析有些文件时可能会不成功。欢迎指正!主 页: http://vcangle.8u8.com,邮箱:king_koo@163.net. 五、参考资料   如何提取并保存图标资源 作者：Future Studio.徐景周 下载例子源代码 　               当你想要使用别的应用程序中的漂亮图标时，该怎么办呢？也许就会用到一些图标提 取工具吧！那么，你知道它们是怎么实现的，想不想自己动手也做一个适合自己的图标提 取工具呢？下面，就让我用我以前做过的一个工具＜轻轻松松抓图标＞来告诉你吧！它可 以提取各种文件中的图标资源，并可将其保存为图标(ICO)、位图(BMP)两种格式。程序运 行后界面如下：       图一     在上面的例程中，我整合出一个图标类CIcons和与之相配的一个位图类CDib，其中包 括Icons.h、Icons.cpp、Dib.h和Dib.cpp四个文件。在你的工程中直接加入这四个文件后 ，调用其类涵数，既可做出你自己的图标工具来。 下面让我们来看看如何来具体用它们来实现： 1、提取并显示出图标到左侧列表框中。 代码实现如下： //读取各种资源内部图标并显示在左侧列表框中     void CIconSnapDlg::OnOK() { CFileDialog fileDialog( TRUE,"*.ICO",NULL,NULL,"资源文件(*.ICO,*.BMP,*.EXE,*.DLL,*.ICL)|*.ICO;*.BMP;*. EXE;*.DLL;*.ICL||"); if (fileDialog.DoModal() == IDOK) { szOpenFileName=fileDialog.GetPathName();         szOpenFileExtName= fileDialog.GetFileExt (); szOpenFileExtName.MakeLower (); m_List.ResetContent (); //选清空左侧图标列表框 //读取并显示ICON文件         if(szOpenFileExtName =="ico") { lpIR=pIcons->ReadIconFromICOFile (szOpenFileName); HICON hIcon; hIcon=ExtractIcon(AfxGetInstanceHandle(),szOpenFileName,0);             if(hIcon!=NULL) m_List.AddString (szOpenFileName); CStatic* pStatic = (CStatic*) GetDlgItem(IDC_ICONS);        pStatic->SetIcon (hIcon); } else if(szOpenFileExtName == "bmp") //读取并显示BMP文件 {             pIcons->IconImageFromBMPFile (szOpenFileName,&lpIR->IconImages[0],TRUE); HICON hIcon; hIcon=pIcons->MakeIconFromResource (&lpIR->IconImages [0]); if(hIcon!=NULL) m_List.AddString (szOpenFileName);             CStatic* pStatic = (CStatic*) GetDlgItem(IDC_ICONS);        pStatic->SetIcon (hIcon); }         else //读取并显示EXE、DLL等资源文件 {   HINSTANCE  hLibrary;   // Load the DLL/EXE - NOTE: must be a 32bit EXE/DLL for this to work   if( (hLibrary = LoadLibraryEx( szOpenFileName, NULL, LOAD_LIBRARY_AS_DATAFILE )) == NULL )   { // Failed to load - abort MessageBox( szOpenFileName+ "文件载入错误，必须是WIN32的文件!", "错误", MB_OK ); return;   }     // Store the info   EDII.szFileName =szOpenFileName;   EDII.hInstance = hLibrary;       // Fill in the listbox with the icons available   if( ! EnumResourceNames( EDII.hInstance, RT_GROUP_ICON, (ENUMRESNAMEPROC )MyEnumProcedure, (LPARAM)GetSafeHwnd()) )   { MessageBox( "列举图标资源名时出错!", "错误", MB_OK ); return;   } } m_List.SetCurSel (0); if( m_List.GetCount()  == 0 ) { MessageBox( "此文件中没有图标资源!", "错误", MB_OK ); //无图标资源，置保存和复制按钮为无效状态 m_Copy.EnableWindow (false); m_SaveAs.EnableWindow (false); return; }         //有图标资源，置保存和复制按钮为有效状态???? m_Copy.EnableWindow (true); m_SaveAs.EnableWindow (true); //刷新调用OnPaint来显示图标 InvalidateRect(NULL,TRUE); } }             在OnPaint()涵数中加入下面代码用来具体显示提取出的图标或位图资源。 //根据左侧图标列表，利用OnPaint()来更新右侧相应图标     LPTSTR lpIconID; HICON hIcon; if((lpIconID=(LPTSTR)m_List.GetItemData(m_List.GetCurSel()))!=(LPTSTR)LB_ERR ) { if(szOpenFileExtName=="exe"||szOpenFileExtName=="dll"||szOpenFileExtName=="ic l") {         hIcon=pIcons->GetIconFromInstance(EDII.hInstance,lpIconID);     CStatic* pStatic = (CStatic*) GetDlgItem(IDC_ICONS);     pStatic->SetIcon (hIcon); } }             2、如何将提取出的图标资源保存为Ico或Bmp格式。 //保存图标资源为ICO或BMP格式文件     void CIconSnapDlg::OnButtonSaveas() { LPTSTR lpIconID;   CFileDialog fileDialog( FALSE,"*.ICO",NULL,NULL,"图标文件(*.ICO)|*.ICO|位图 文件(*.BMP)|*.BMP||"); if (fileDialog.DoModal() == IDOK) { szSaveFileName=fileDialog.GetPathName();        szSaveFileExtName= fileDialog.GetFileExt (); szSaveFileExtName.MakeLower (); if(szOpenFileExtName=="exe"||szOpenFileExtName=="dll"||szOpenFileExtName=="i cl")           if((lpIconID=(LPTSTR)m_List.GetItemData (m_List.GetCurSel()))!= (LPTSTR)LB_ERR)     lpIR=pIcons->ReadIconFromEXEFile (szOpenFileName,lpIconID);         if(szSaveFileExtName=="bmp") {  if(lpIR!=NULL && m_List.GetCount ()>0)  { BeginWaitCursor(); pIcons->IconImageToBMPFile (szSaveFileName,&lpIR->IconImages [0]); EndWaitCursor();  }  else             MessageBox( "没有可保存的图标资源!", "错误", MB_OK ); } else if(szSaveFileExtName=="ico") {          if(lpIR!=NULL && m_List.GetCount ()>0)  { BeginWaitCursor(); pIcons->WriteIconToICOFile (lpIR,szSaveFileName); EndWaitCursor();  }  else         MessageBox( "没有可保存的图标资源!", "错误", MB_OK ); } } }         以上代码的详细实现，请在下载后源码后，仔细参看既可。

kcahcn · 2002-10-29

看看这个 PE Resource Editor http://www.wilsonc.demon.co.uk/d6peresourceeditor.htm 源代码得下载地址： http://www.wilsonc.demon.co.uk/files/d6/peresourceexplorer/peresourceexplorer.zip 那网站有很多冬冬。慢慢享受吧。http://www.wilsonc.demon.co.uk/ CIONO1

kcahcn · 2002-10-29

还有一点忘了写。 在google groups 找到了Colin写的这个帖子。 http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&selm=3d0879e9_1%40dnews 我刚刚试过。可以改ICON。 //-------------------------------------------------------------------------- uses ..., unitPEFile, unitResourceGraphics; procedure ReplaceIcon (const moduleName, newIconName : string); var   module : TPEResourceModule;   i, lang : Integer;   nm : string;   newIcon : TIconGroupResourceDetails; begin   module := TPEResourceModule.Create;   try     module.LoadFromFile(moduleName);     i := 0;     while i < module.ResourceCount do  // Find the old icon       if module.ResourceDetails .ResourceType = IntToStr (Integer (RT_GROUP_ICON)) then         break       else         Inc (i);     if i < module.ResourceCount then     begin                               // Delete the old icon       lang := module.ResourceDetails .ResourceLanguage;       nm := module.ResourceDetails .ResourceName;       module.DeleteResource(i);     end     else     begin       lang := $809;                     // There wasn't an old icon       nm := '1'     end;                                         // Create the new icon     newIcon := TIconGroupResourceDetails.CreateNew(module, lang, nm);     newIcon.LoadImage(newIconName);     // Load it.     module.SaveToFile(moduleName);      // Save the new .EXE   finally     module.Free   end end; //------------------------------------- CIONO1

晶晶 · 2002-10-29

kcahcn： 谢谢！对于其他的资源改变有例子吗？

晶晶 · 2002-10-29

各位老大，对于你们的帮助非常感谢。有没有直接用（上述3个）API做出来的例子？？？ 各位的辛苦都会有分！

晶晶 · 2002-10-29

对于以上三个函数就没有人做过应用的吗？帮帮忙。

KOKS · 2002-10-29

dz2050 · 2002-10-29

delphi 的例子里有

jsxjd · 2002-10-29

就三个函数，自己慢慢做，能成功的。

晶晶 · 2002-10-29

各位老大!导出资源我做出来了,我现在是想将我的图片导入EXE中,怎么做,怎么全是告诉我怎么 导出资源的,没有谁说说导入资源的!??

kcahcn · 2002-10-30

晶晶 : 仔细看那个源代码。 我按照前面ReplaceIcon的例子写了这个过程。你试试看。（不费时间，1分钟就改好了）。 你多费时间看Colin写的源代码。应该能改其它的资源。 如果下面的过程有问题告诉我。（我只是改了ReplaceIcon的某些地方，没仔细研究代码） 不要忘了考虑BITMAP类型的资源不止一个。。。 procedure ReplaceBitmap (const moduleName:string; picture : TPicture); var   module : TPEResourceModule;   i, lang : Integer;   nm : string;   newBitmap:TBitmapResourceDetails;   ResourceDetails:TResourceDetails; begin   module := TPEResourceModule.Create;   try     module.LoadFromFile(moduleName);     i := 0;     while i < module.ResourceCount do  // Find BITMAP       if module.ResourceDetails .ResourceType = IntToStr (Integer (RT_BITMAP)) then         break       else         Inc (i);     if i < module.ResourceCount then     begin                               // Delete the old BITMAP       lang := module.ResourceDetails .ResourceLanguage;       nm := module.ResourceDetails .ResourceName;       module.DeleteResource(i);     end     else     begin       lang := $809;                     // No BITMAP found       nm := '1'     end;                                         // Create the new BITMAP     newBitmap := TBitmapResourceDetails.CreateNew(module, lang, nm);     newBitmap.SetImage(Picture);     // Set image.     module.SaveToFile(moduleName);      // Save the new .EXE   finally     module.Free   end end; //------------- CIONO1

jsxjd · 2002-10-30

{ QuickInfo   Windows NT: Requires version 3.1 or later.   Windows: Unsupported.  不支持 98   Windows CE: Unsupported.   Header: Declared in winbase.h.   Import Library: Use kernel32.lib.   Unicode: Implemented as Unicode and ANSI versions on Windows NT. } //这几个函数要在 NT 3.1 或更高版本上运行. procedure TForm1.Button1Click(Sender: TObject); var   hExe,hUpdateRes:THandle;   hRes,hResLoad:HRSRC;   lpResLock

char;   b:Boolean; begin   hExe := LoadLibrary('c:/Program Files/borland/delphi5/projects/project2.exe');   if hExe=0 then begin     showmessage('Can''t load notepad!');     exit;   end;   hRes := FindResource(hExe, 'MAINICON',RT_GROUP_ICON);   if hRes=0 then begin     showmessage('Can''t load Icon!');     exit;   end;   hResLoad := LoadResource(hExe, hRes);   if hResLoad=0 then begin     showmessage('Can''t load !');     exit;   end;   lpResLock := LockResource(hRes);   if lpResLock=nil then begin     showmessage('Can''t lock !');     exit;   end;   hUpdateRes := BeginUpdateResource('c:/Program Files/borland/delphi5/projects/project3.exe', FALSE);   if hUpdateRes=0 then begin     // 98下运行出现的错误:此功能仅在 Win32 模式下有效。     showmessage('Could not open file for writing.');     exit;   end;   b:= UpdateResource(hUpdateRes,       // update resource handle      RT_GROUP_ICON,                   // change dialog box resource      'MAINICON',                  // dialog box name      0{MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL)},  // neutral language      lpResLock,                   // ptr to resource info      SizeofResource(hExe, hRes)); // size of resource info.   if not(b) then begin     showmessage('Could not add resource.');     exit;   end; // Write changes to FOOT.EXE and then close it.   if (not(EndUpdateResource(hUpdateRes, FALSE)))   then begin     showmessage('Could not write changes to file.');     exit;   end; // Clean up.   if (not(FreeLibrary(hExe)))   then   showmessage('Could not free executable.'); end;

晶晶 · 2002-10-31

大家用过ResHacker软件没有？ 它可以将外面的一副BMP图片替换一个EXE中选定的位图资源，我就是要这种例子和代码。 以上说的很多都是看资源，或是修改一点的，有没有全面的？？？？ 有的话帮帮我，我再加分，总共600分怎么样？

kcahcn · 2002-10-31

晶晶: 呜呜呜呜。 仔细看看那源代码。你可以做跟ResHacker一样的软件。 别人给你作全面的就没意思了吧。 我有空就帮你研究代码吧。（你自己也要仔细研究） CIONO1

jsxjd · 2002-10-31

你说的三个函数在98上是不支持的， 所以在98上可能还是要通过PE来获取资源。 虽然PE结构复杂一点，但掌握了也是一劳永逸！！

晶晶 · 2002-10-31

kcahcn：非常感谢你的热情帮助！ 说实话，因为是用到他自己写的库文件，所以我就没有仔细看，难道他可以达到相同的功能。 我去看看去！呵呵，只要有收获这些分就是你的了。

kcahcn · 2002-10-31

晶晶: 别误会我了。我不要分（我讨厌积分这个概念），我只是喜欢与别人讨论技术问题。 CIONO1

晶晶 · 2002-10-31

kcahcn:别误会。分这个东西我也不喜欢，不然也不会扔这么多分[

] 但出了分总得给对自己有帮助的人，希望你留下一点联系方式，那么我们好联系，做好这个 软件。还可以讨论其他一点问题（向你请教的东西很多），我的qq：30362915

老问题：关于EXE的资源替换，只用API解决。求例子，完整，适用给分(300分)

晶晶

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

wukw

Unregistered / Unconfirmed

kcahcn

Unregistered / Unconfirmed

kcahcn

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

KOKS

Unregistered / Unconfirmed

dz2050

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

kcahcn

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

kcahcn

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

kcahcn

Unregistered / Unconfirmed

晶晶

Unregistered / Unconfirmed

Similar threads