Список DLL подключенных к процессу

[Horus92]

Здравствуйте не могли бы вы подсказать есть ли какой-то компонент или функция которая может вернуть список dll библиотек подключенных к процессу как например в LordPE?

[JTG]

uses ..., TlHelp32;
...
var
   snapshot: THandle;
   modules: TModuleEntry32;
begin
  snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, ProcessID);
  modules.dwSize := sizeof(TModuleEntry32);
  if Module32First(snapshot, modules) then
    While Module32Next(snapshot, modules) do 
      Form1.Memo1.lines.add(string(modules.szModule));
  CloseHandle(snapshot);
end;

[Horus92]

Попробовал подставил вместо processid нужный и почему то не выполняется условие if Module32First(snapshot, modules) then.

[Stilet]

Значит неверный PID. У меня по крайней мере работает примерчик.

[Horus92]

а в windows 7 данный пример работает? я сегодня еще проверю на XP.

[Alter]

У процесса AVP не показывает

[JTG]

Винда х64? Если да, то не работает CreateToolhelp32Snapshot

If the specified process is a 64-bit process and the caller is a 32-bit process, this function fails and the last error code is ERROR_PARTIAL_COPY (299).

т.е. обращение к 64-битному процессу тоже должно быть из 64-битного.

//это покажет текст ошибки.
win32check(longbool(snapshot));
...
if win32check(longbool(Module32First(snapshot, modules)))...

И это, там вместо CloseHandle(snapshot); - CloseToolhelp32Snapshot(snapshot);
API на костылях во всей красе

Касперский, естественно, защищается.

[Horus92]

Винда х64? Если да, то не работает CreateToolhelp32Snapshot

Нет win7 x86
Ноя проверил в xp работает но проверял на pid которые брал из lordpe а в win 7 получал pid через Getcurrenprocessid но это я еще проверю подскажите пожалуйста как мне вернуть полный путь к подключаемым файлам?

[JTG]

var buf: array[0..MAX_PATH] of char;
...
  GetModuleFileName(modules.hModule, buf, sizeOf(buf));
...

[Stilet]

У процесса AVP не показывает

Дык (это же антивирь?) он то себя должен защищать