[转载]提取Delphi(BCB)编译过的exe和dll或bpl dpl文件中的窗体代码

天下奇毒

晶莹剔透§烈日灼然

Rank: 1

帖子: 184
精华: 8
积分: 430
阅读权限: 40
性别: 男
来自: 湖南
在线时间: 6 小时
注册时间: 2004-7-30
最后登录: 2008-5-8

发短消息
加为好友
当前离线

楼主大中小发表于 2005-3-19 12:23 只看该作者

[转载]提取Delphi(BCB)编译过的exe和dll或bpl dpl文件中的窗体代码

信息来源：邪恶八进制中国

复制内容到剪贴板

代码:

function EnumResProc (hMod: THandle; ResType, ResName: PChar; Self: TPeekForm): Boolean; stdcall;



var



h: THandle;



p: pDWord;



begin



// OK - we&#39;ve got a rc_Data resource, but is it a DFM?



h := LoadResource (hMod, FindResource (hMod, ResName, ResType));



p := LockResource (h);



if p^ = $30465054 then Self.FormList.Items.Add (ResName);



Result := True;



end;



procedure TPeekForm.Clear;



begin



if hMod > 0 then FreeLibrary (hMod);



FormData.Lines.Clear;



FormList.Clear;



end;



procedure TPeekForm.GetResourceInfo;



var



hTemp: THandle;



begin



hTemp := LoadLibraryEx (PChar (OpenDialog.FileName), 0, Load_Library_As_DataFile);



if hTemp <> 0 then begin



Clear; hMod := hTemp;



Caption := Format (&#39;Form Peeker - [%s]&#39;, [OpenDialog.FileName]);



EnumResourceNames (hMod, rt_rcData, @EnumResProc, Integer (Self));



if FormList.Items.Count > 0 then begin



FormList.ItemIndex := 0;



FormListClick (Self);



end;



end;



end;



procedure TPeekForm.FormDestroy (Sender: TObject);



begin



Clear;



end;



procedure TPeekForm.OpenButtonClick(Sender: TObject);



begin



if OpenDialog.Execute then GetResourceInfo;



end;



procedure TPeekForm.FormListClick(Sender: TObject);



var



sText: TMemoryStream;



sRes: TResourceStream;



begin



with FormList do if ItemIndex <> -1 then begin



sRes := TResourceStream.Create (hMod, Items [ItemIndex], rt_rcData);



try



sText := TMemoryStream.Create;



try



ObjectBinaryToText (sRes, sText);



sText.Position := 0;



FormData.Lines.LoadFromStream (sText);



finally



sText.Free;



end;



finally



sRes.Free;



end;



end;



end;

TOP

‹‹ 上一主题 | 下一主题 ››