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

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

Как узнать путь к процессу ? [Win2k, WinXP]


DelphiN! ©   (2004-12-17 07:18:00) 

Как узнать полный путь к процессу, если извесна вся структура TProcessEntry32, данного процесса ?


Digitman   (2004-12-17 11:36:00) [1]


> DelphiN! ©   (17.12.04 11:14) [2]


все бы ничего, вот только не есть корошо использовать для вышеозначенной цели одновременно и tlhelp32 и psapi .. последний полностью реализует функциональность первого (там ф-ция и для енумерации процессов) и, более того, "заточен" именно под НТ


DelphiN!   (2004-12-17 11:14:00) [2]


>  [1] -=SS=- ©   (17.12.04 10:32)


Спасибо !


-=SS=-   (2004-12-17 10:32:00) [3]

ProcHand:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False,ID);
if ProcHand = 0 then
   raise Exception.Create('No information available for this process/driver');
try
   EnumProcessModules(ProcHand, @ModHandles, SizeOf(ModHandles), Count);
   for I := 0 to (Count div SizeOf(DWORD)) - 1 do
     if (GetModuleFileNameEx(ProcHand, ModHandles[I], ModName,
       SizeOf(ModName)) > 0) and GetModuleInformation(ProcHand,
       ModHandles[I], @ModInfo, SizeOf(ModInfo)) then
       with ModInfo do

         DetailLists.Add(Format(SModuleStr, [ModName, lpBaseOfDll,
           SizeOfImage, EntryPoint]));


Наверх

Титульная страница Поиск, карта сайта Написать письмо