Question

怎么在EXE文件中抽出DLL文件

Answer 1

EXE和DLL文件结构 和 文件结构
1.每个.exe或DLL文件的映像都由许多段组成 每个.exe 查看exe或dll文件段信息的方法: dumpbin -exports -headers xx.exe > c:\xx.txt dumpbin -exports -headers yy.dll > c:\yy.txt 示例
2. .exe或DLL文件各段的属性 或 文件各段的属性
3. 常见的段名及作用

一个从EXE、DLL文件中提取、存取图标完整程序(delphi)
//得到总的图标数目本文来源:考试大网
　　Count := ExtractIcon( Application.Handle, PChar(FileName),$FFFFFFFF);
　　if( I < Count ) then
　　Image1.Picture.Icon.Handle :=
　　ExtractIcon( Application.Handle, PChar(FileName), I ) // I为图标的索引
　　else
　　ShowMessage(\'此文件没有更多的图标资源！\' );来源：考试大
　　end;
　　procedure TForm1.btNextIconClick(Sender: TObject);
　　begin
　　MoveIconIndex(\'MoveNextIcon\');
　　end;
　　procedure TForm1.btBowserFileClick(Sender: TObject);
　　begin
　　try
　　OpenDialog1.Title:=\'选择EXE文件或DLL文件：\';
　　OpenDialog1.Filter:=\'提取文件(*.EXE;*.DLL;*.ICO)|*.DLL;*.EXE;*.ICO|All files (*.*)|*.*\';
　　OpenDialog1.FilterIndex:=1;
　　if OpenDialog1.Execute then
　　EditFileName.Text :=OpenDialog1.FileName;
　　MoveIconIndex(\'MoveNextIcon\');
　　except
　　exit;
　　end;
　　end;
　　procedure TForm1.btSaveIcoClick(Sender: TObject);
　　begin
　　SavePictureDialog1.DefaultExt := GraphicExtension(TIcon);
　　SavePictureDialog1.Filter := GraphicFilter(TIcon);
　　if SavePictureDialog1.Execute then
　　image1.Picture.SaveToFile(SavePictureDialog1.FileName);
　　end;
　　procedure TForm1.btPrevirousIconClick(Sender: TObject);
　　begin
　　MoveIconIndex(\'MovePrevIcon\');
　　end;
　　end.考试大－全国最大教育类网站(www．Examda。com)
　　OK!，这样我们使用TImage.Picture.SaveToFile方法就可以很容易地将图标保存到单独的文件中，然后再利用Image Editor作适量的修改即可！