读取程序之外的资源文件(在线等，300分) (150分)

注意：不是那种保存在EXE文件中的资源文件。<br>在我的硬盘里有好多res的资源文件，我想做个程序可以读取他们的内容，这些资源文件内的结构全部相同，ID也相同，全是文本型资源。<br>读取保存在EXE文件中的较容易，但这种读取EXE文件之外已经保存好的res资源文件，我就是想不出用什么api或者function。<br>还是请各位高手帮忙。谢谢！

自己看吧：<br>PE Resource Editor<br>http://www.wilsonc.demon.co.uk/d6peresourceeditor.htm<br>Delphi的源代码，读取Exe、Res等文件中的资源<br>可以实现你的目的。

谢谢，我去看看

原代码已经下载了，很庞大。可能是因为我用D7，窗体都有错误，他用到的控件也无法正常安装。<br>这份源代码我会好好保存，虽然现在我看不懂，无从下手。非常谢谢<br>问题继续询问中<br>

这样<br>在<br>implementation 下<br><br>{$R Test.res}<br><br>然后<br>//read bmp<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; Bmp: TBitmap;<br>begin<br>&nbsp; Bmp := TBitmap.Create;<br>&nbsp; Bmp.Handle := LoadBitmap(HInstance,'picture1');<br>&nbsp; Refresh;<br>&nbsp; Canvas.Draw(width-bmp.width-30, 60, Bmp);<br>&nbsp; Bmp.Free;<br>end;<br>//read frist string<br>procedure TForm1.Button2Click(Sender: TObject);<br>Var Ch : array[0..255] of char;<br>begin<br>&nbsp; label1.caption := '';<br>&nbsp; if LoadString(hInstance,1,@Ch,sizeof(Ch)) &lt;&gt; 0 then<br>&nbsp; Label1.Caption := StrPas(Ch);<br>end;<br><br>

to 灏忕?閫?鎰熻阿浣犵殑瑙ｇ瓟銆?鐪嬪埌浜嗚繖鍙?$R Test.res}锛屼綘鍙?兘娌℃湁鏄庣櫧鎴戠殑鎰忔

其实能像exescope那样就行了，我是想像打开word文件那样打开res文件，接着程序列出整个res文件的结构和内容，文本、图片、声音那些内容都可以被反编译出来，就是brcc32的反向过程。<br>因为我不知道我会打开哪一个res文件，所以不能用{$R }。<br>请问是不是Delphi办不到这个？

我晕！ 有现成的代码了你还在问Delphi办不到这个？？？<br><br>另外，我也是用D7，我可以正常编译，很多东西稍作修改就可以了。

楼上兄弟说的有道理，代码是帮助理解的，并不是一层不变的套用。

好了，没问题了，谢谢<br>那150份怎么给你？