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

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

Как узнать откуда запущен чужой процес? [2003]


-=Le][=- ©   (2007-11-05 17:41:00) 

Как с помощью ID чужого процесса узнать откуда он был запущен?
У кого нибуть есть компактный код?


Igor Zorkov   (2007-11-06 10:47:00) [1]


> -=Le][=- ©



http://www.delphisources.ru/pages/sources/system/2007_year/processes_killer.html


-=Le][=-   (2007-11-06 10:44:00) [2]

Народ, не получается!

var
 pId: Cardinal;
 PrcMdl: array[0..255] of Char;
 pPrcMdl:PChar;
 h:HWND;
...
  pPrcMdl:=@PrcMdl;
...
  GetWindowThreadProcessId(h,pId);
  pId:=OpenProcess(PROCESS_QUERY_INFORMATION,False,pId);
  FillChar(PrcMdl,255*sizeof(Char),#0);
  if pID<>0 then
     if GetModuleFileNameEx(pID, 0, pPrcMdl, 255)<>0 then
        pl.ExePht:=pPrcMdl
       else ShowMessage(IntToStr(GetLastError));
  CloseHandle(pId);
...


GetLastError =5   Отказано в доступе!!!
Учетная запись администратор домена, пробовал на WinXP и Win2k3 Server R2!
У кого нибуть есть соображения?


Юрий Зотов   (2007-11-05 19:03:00) [3]

> MetalFan ©   (05.11.07 18:55) [7]

Не может быть!
:о)


MetalFan   (2007-11-05 18:55:00) [4]


> [2]

нехорошо получится... ибо CloseHandle не к чему будет применить...


-=Le][=-   (2007-11-05 18:21:00) [5]

Юрий Зотов, vpbar
Спасибо!


vpbar   (2007-11-05 18:10:00) [6]

-=Le][=-   (05.11.07 18:02) [4]
см  [2]


-=Le][=-   (2007-11-05 18:02:00) [7]

Riply
Я имел в виду: Как узнать путь к ехе-файлу с какова запущен процес!
Тоесть путь к ехе-шнику по ID чужого процесса!


vpbar   (2007-11-05 17:58:00) [8]

Если имеется ввиду путь до модуля, то такой код есть. Если то кто запустил процесс, то тоже есть. TaskManagerEx есть в исходниках


Юрий Зотов   (2007-11-05 17:57:00) [9]

GetModuleFileNameEx(OpenProcess(...), ...)


Riply   (2007-11-05 17:45:00) [10]

> [0] -=Le][=- ©   (05.11.07 17:41)
А откуда они(процессы) могут запускаться ?


Наверх

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