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

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

Проблема с OpenProcess [D7, WinXP]

Anonim ©   (2005-08-08 10:34:00) 

Почему функция OpenProcess возвращает для всех ID (их около 30) полученных функцией EnumProcesses один и тот же не нулевой Handle?

---

begin...end   (2005-08-08 12:14:00) [1]

var
 ProcList: array [1..1024] of Cardinal;
 FileName: array [0..MAX_PATH] of Char;
 I, ProcHandle, ProcCount: Cardinal;
begin
 if EnumProcesses(@ProcList, sizeof(ProcList), ProcCount) then
 begin
   ProcCount := ProcCount div sizeof(Cardinal);
   for I := 1 to ProcCount do
   begin
     ProcHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ProcList[I]);
     if ProcHandle <> 0 then
       try
         if GetModuleFileNameEx(ProcHandle, 0, @FileName, sizeof(FileName)) <> 0 then
           Memo.Lines.Add(Format('Handle: %d; File: %s', [ProcHandle, FileName]))
       finally
         CloseHandle(ProcHandle)
       end
     end
   end
end.

Хэндлы одинаковые, а имена файлов модулей -- разные. Так что -- ничего страшного. Главное, что в одно и то же время нет двух хэндлов, имеющих одинаковое значение, но относящихся при этом к разным процессам.

---

begin...end   (2005-08-08 11:58:00) [2]

> Anonim

Сейчас попробовал -- у меня то же самое. Использовал такой код:

var
 ProcList: array [1..1024] of Cardinal;
 I, ProcHandle, ProcCount: Cardinal;
begin
 if EnumProcesses(@ProcList, sizeof(ProcList), ProcCount) then
 begin
   ProcCount := ProcCount div sizeof(Cardinal);
   for I := 1 to ProcCount do
   begin
     ProcHandle := OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcList[I]);
     try
       Memo.Lines.Add(IntToStr(ProcHandle))
     finally
       CloseHandle(ProcHandle)
     end
   end
 end
end.

Вероятно, ничего страшного в этом нет. Хоть новый хэндл и имеет такое же значение, как и старый, но связан он уже с другим процессом. Вот если бы закрытия хэндла (CloseHandle) после его получения не было, и вызовы OpenProcess для разных процессов возвращали бы одинаковые значения, тогда стоило бы задумываться.

---

n0name   (2005-08-08 11:52:00) [3]

Неправильно используешь OpenProcess.

---

begin...end   (2005-08-08 10:46:00) [4]

Код можно увидеть?

---

Наверх