文件名称：ModuleLister-PEB
文件大小：13KB
文件格式：ZIP
更新时间：2016-04-24 07:37:21
ModuleLister PEB
procedure TForm2.FormCreate(Sender: TObject); var PEB: PPEB; cLdrModule: TPebLdrData; List: TListItem; cModName: String; cModBase: LongWord; i: Integer; begin asm push eax mov eax, fs: $30 mov PEB, eax pop eax end; cLdrModule := TPebLdrData(PEB.Ldr^); i := 0; while (I <= 256) do begin Inc(I); cModName := WideCharToString(PLdrModule(cLdrModule.InLoadOrderModuleList.Flink) ^.BaseDllName.Buffer); if (cModName = '') then Break; cModBase := PLdrModule(cLdrModule.InLoadOrderModuleList.Flink)^.BaseAddress; List := ListView1.Items.Add; List.Caption := cModName; List.SubItems.Add('0x' + IntToHex(cModBase,8)); cLdrModule.InLoadOrderModuleList.Flink := cLdrModule.InLoadOrderModuleList.Flink.Flink; end; end;
【文件预览】：
modulelist(PEB)
----prjModuleLister.dproj.local(1KB)
----__history()
--------frmMain.pas.~1~(1KB)
--------uStructs.pas.~1~(6KB)
--------prjModuleLister.dpr.~1~(276B)
----frmMain.dfm(743B)
----frmMain.pas(1KB)
----uStructs.dcu(5KB)
----frmMain.dcu(5KB)
----uStructs.pas(6KB)
----prjModuleLister.dproj(3KB)
----prjModuleLister.dpr(272B)