CreateToolHelp32Snapshot - аналогичные методы получения СП

[xenomorph]

Привет Всем!

Задача:

Получить список процессов в ОС Win 4.0 Wks Sp 6a \ Win 4.0 Srv Sp 6a
Проблема:

Can’t find entry point – CreateToolHelp32Snapshot
- система ругается на kernel32.dll ///
Работает с PSAPI.DLL ...
но это лишних 19 кб! Что для меня критично!
Я канкшно могу её запихнуть в ресурсы ... но
может есть ещё методы?

Вопрос:

Есть ли какой-то универсальный (читай - ещё какой)
метод выковыривания списка процессов?
я накопал два:
1. PSAPI.DLL
2. CreateToolHelp32Snapshot
--
Заранее спасибо!

[keks-n]

ntdll!ZwQuerySystemInformation. Кажется, диспетчер задач через него работает.

[xenomorph]

2 keks-n - спасибо! То что нужно!
Проблема в том что эта часть слабо документирована ...

Я сам не раскопаю - ...
достаточно сложно ...

Если кто сможет - поделитесь пожалуйста!
т.е. тема открыта!
--
Всем спасибо!

[keks-n]

То ли на форуме, то ли на местном сайте был, однако пример. И был даже пример перехвата оной, с целью скрытия процесса

[xenomorph]

2 keks-n

Пример того что надо на Pascal-e:

Чего я НЕ нашёл:

1. Декларации структур.
2. GetInfoTable.
3. тут вообще-то callbacks есть*?
--
Вообщем портануть мозгов у меня не хватает *-((.
Но может кому поможет ...

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

'=================================================
{
  Получение списка процессов через ZwQuerySystemInformation.
}
procedure GetNativeProcessList(var List: PListStruct);
var
Info: PSYSTEM_PROCESSES;
NewItem: PProcessRecord;
Mem: pointer;
begin
  Info := GetInfoTable(SystemProcessesAndThreadsInformation);
  Mem := Info;
  if Info = nil then Exit;
  repeat
   GetMem(NewItem, SizeOf(TProcessRecord));
   ZeroMemory(NewItem, SizeOf(TProcessRecord));
   lstrcpy(@NewItem^.ProcessName,
           PChar(WideCharToString(Info^.ProcessName.Buffer)));
   NewItem^.ProcessId  := Info^.ProcessId;
   NewItem^.ParrentPID := Info^.InheritedFromProcessId;
   AddItem(List, NewItem);
   Info := pointer(dword(info) + info^.NextEntryDelta);
  until Info^.NextEntryDelta = 0;
  VirtualFree(Mem, 0, MEM_RELEASE);
end;
'=================================================


Анологичная функция использована в статье про хэндлы ...

http://www.vbstreets.ru/VB/Articles/66343.aspx

но обработка структур по дельте, когда я их НЕ понимаю ...
эт не для меня ...
Я просто внимательно послежу за данным топиком!

[keks-n]

xenomorph
Завтра буду дома - поковыряю.

[Twister]

Анологичная функция использована в статье про хэндлы ...

http://www.vbstreets.ru/VB/Articles/66343.aspx

А во второй статьея показывал, как получить список процессов... Читай прямо с начала раздел "Обнаружение скрытых процессов"

[xenomorph]

2 Twister:
Статья просто супер!
Я уже код оттуда порипал .

Однако проблема похожая:
Can't find dll entry point QueryInformationJobObject in kernel32.dll!

Можно ли как нить БЕЗ этой функции?
--
Заранее огромное спасибо!

[xenomorph]

2 Twister:

Забыл добавить - я извращаюсь на WinNT 4.0 sp6a в VMWare.

Просьба за криво-недоделаный kernel32.dll пинать не меня а Билли! *-(.

[Twister]

Спасибо за отклик на статью. Мне приятно что старания не прошли даром...

По поводу твоей проблемы: просто убери тот кусок кода, который строит список процессов по job-объектам, ибо я не знаю есть ли таковые в NT4...