Проблема с перечислением Handles

[M.A.R.K]

Привет всем.
Пишу программу на Visual Basic для перечисления всех Хэндлов в системе (Windows XP SP2).

Алгоритм:
Когда я нахожу количество всех Хэндлов
(С помощью NtQuerySystemInformation), я создаю цикл.
В этом цикле я копирую каждый Хэндл в свой процесс
(С помощью DuplicateHandle) и получаю информацию о нем (В остальных программах такого типа делают также).
Последний шаг - это закрыть скопированный Хэндл в своем процессе, я это делаю, но количество всех Хэндлов в системе (Как изображено на скриншоте) увеличивается
(Как будто я не закрывал этот Хэндл) и никакая CloseHandle не помогает.
В примерах на Deplhi (Перечисление открытых файлов и т.д.) в Таск Менеджере Windows Количество всех Хэндлов не изменяется.
Код одинаковый, в чем проблема?

Заранее благодарен.

[Antonariy]

Наверное нужно код для начала показать.

[M.A.R.K]

Часть кода:

Код: Выделить всё

For i = 0 To Handles - 1
  hProc = OpenProcess(PROCESS_DUP_HANDLE,0,ProcessId)
  Call DuplicateObject(hProc,mHandle(i).HandleValue,GetCurrentProcess,hFileHandle,0,0,DUPLICATE_SAME_ATTRIBUTES)
  ..
  Обработка Handle
  ..
  CloseHandle hFileHandle
Next

[M.A.R.K]

Возможно эта проблема связана с тем, что программа на VB интерпритируется MSVB6XXX.DLL...

Как вы считаете?

[alibek]

Этот процесс - не интерпретация.
Может ты не получаешь привилегии для закрытия хендла?
Чему равен Err.LastDllError после CloseHandle?

[Twister]

Блин, ну есть же статья на сайте и уже, даже, в книге. Сравни код и найди ошибку...

Может ты не получаешь привилегии для закрытия хендла?

Хэндл копируется с DUPLICATE_SAME_ATTRIBUTES (на самом деле DUPLICATE_SAME_ACCESS, но разницы нет), а процесс, породивший хэндл имеет права на его закрытие по-любому, так что мимо.

M.A.R.K
Перед закрытием хэндла посмотри значение переменной и убедись, есть ли такой хэндл вообще (ProcessExplorer или мой кривой код из статьи поможет).

ADDED:

Код: Выделить всё

For i = 0 To Handles - 1
  hProc = OpenProcess(PROCESS_DUP_HANDLE,0,ProcessId)
  Call DuplicateObject(hProc,mHandle(i).HandleValue,GetCurrentProcess,hFileHandle,0,0,DUPLICATE_SAME_ATTRIBUTES)
  ..
  Обработка Handle
  ..
  CloseHandle hFileHandle
Next

Это ты в цикле процесс открываешь при каждой иттерации, а закрыть забываешь? Ну-ну. Вот отсюда и растут хэндлы... А если так, то вопрос явно не в той ветке форума!

[M.A.R.K]

Twister, ты хочешь сказать что проблема вот в этой строчке:
hProc = OpenProcess(PROCESS_DUP_HANDLE,0,ProcessId)

[Twister]

Да, ведь ты забываешь их закрывать

но количество всех Хэндлов в системе (Как изображено на скриншоте) увеличивается
(Как будто я не закрывал этот Хэндл) и никакая CloseHandle не помогает.