Есть фунция:
function GetLoadedDLLList(sl: TStrings;
Options: TModuleOptions = [moRemovePath]): Boolean;
type
EnumModType = function (hProcess: Longint; lphModule: TModuleArray;
cb: DWord; var lpcbNeeded: Longint): Boolean; stdcall;
var
psapilib: HModule;
EnumProc: Pointer;
ma: TModuleArray;
I: Longint;
FileName: array[0..MAX_PATH] of Char;
S: string;
pid : integer;
begin
Result := False;
if Win32Platform <> VER_PLATFORM_WIN32_NT then
Exit;
psapilib := LoadLibrary('psapi.dll');
if psapilib = 0 then
Exit;
try
EnumProc := GetProcAddress(psapilib, 'EnumProcessModules');
if not Assigned(EnumProc) then
Exit;
sl.Clear;
pid:=2404;
FillChar(ma, SizeOF(TModuleArray), 0);
MessageBox(0,PCHar(IntToStr(OpenProcess(PROCESS_ALL_ACCESS, true, pid))),0,0);
if EnumModType(EnumProc)(OpenProcess(PROCESS_ALL_ACCESS,true, pid), ma, 400, I) then
begin
for I := 0 to 400 do
if ma[i] <> 0 then
begin
FillChar(FileName, MAX_PATH, 0);
GetModuleFileName(ma[i], FileName, MAX_PATH);
begin
S := FileName;
if moIncludeHandle in Options then
sl.AddObject(S, TObject(ma[I]))
else
sl.Add(S);
end;
end;
end;
Result := True;
finally
FreeLibrary(psapilib);
end;
end;
Поулучает список .dll подруженных в определенный .exe =) писал сам поэтому,что то работает некорректно тоесть получает список .dll только в своем .exe если у кого есть корректно работающая фунция получения списка библиотек по имени процесса или PID был бы очень благодарен выложите

| Сообщение посчитали полезным:

Вот примерно,что надо бы


| Сообщение посчитали полезным:

function TForm1.FillModuleTable(PID: dword): boolean;
var
Module: TModuleEntry32;
hSnapshot: dword;
i:dword;
begin
Result := False;
hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PID);
if hSnapshot = 0 then exit;
Module32First(hSnapshot, Module);
i := 0;
ListView2.Clear;
repeat
ListView2.Items.Add.Caption := Module.szExePath;
ListView2.Items[i].SubItems.Add(IntToHex(Module.hModule, 8));
ListView2.Items[i].SubItems.Add(IntToHex(Module.modBaseSize, 8));
inc(i);
until not Module32Next(hSnapshot, Module);
CloseHandle(hSnapshot);
Result := True;
end;

PS Мля, уже первое Июля...

| Сообщение посчитали полезным:

Спасиба чел

| Сообщение посчитали полезным:

всё это можно было спросить у гугла или MSDN'а...

| Сообщение посчитали полезным: