| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как программно определить какие библиотеки использует приложение? [WinXP]

kanibal ©   (2009-12-01 18:24:00) 

Сабж.

---

Сергей М.   (2009-12-03 09:44:00) [1]

> какие библиотеки использует приложение


В данный момент времени или вообще ?

---

S-C-L   (2009-12-01 19:37:00) [2]

uses TLHelp32; // не забудь

---

S-C-L   (2009-12-01 19:36:00) [3]



var TModuleArray : array of TModuleEntry32;

function GetModulesListByProcessId(ProcessId: Cardinal): TModuleArray;
var
 hSnapshot: THandle;
 lpme: TModuleEntry32;

 procedure AddModuleToList;
 begin
   SetLength(Result, High(Result) + 2);
   Result[high(Result)] := lpme;
 end;

begin
 SetLength(Result, 0);
 hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, ProcessId);
 lpme.dwSize := SizeOf(lpme);
 if Module32First(hSnapshot, lpme) then
 begin
   AddModuleToList;
   while Module32Next(hSnapshot, lpme) do
     AddModuleToList;
 end;
end;


---

clickmaker   (2009-12-01 18:40:00) [4]

EnumProcessModules()

---

Наверх