Мониторинг процессов, Простейшие действия с процессами Опции

[Atreides]

Как сделать, так что бы в ListBox можно было бы отразить процессы, происходящие в данный момент в системе и при выборе из списка специальной кнопкой их закрывать? Примерно догадываюсь, как это сделать, но как формализовать не додумаюсь? Знаю, что надо сделать снимок системы через SnapShot, подключить модуль Thelp32, а как дальше?

Сообщение отредактировано: Atreides - 1.03.2007 15:46

[Atreides]

Вот нашел тут одну ссылку, но она на C, а как перегнать на Delphi?

Мониторинг выполняющихся в системе процессов – основа всех приложений для наблюдения за работой информационных систем и их пользователей. Для отслеживания появления в системе новых приложений или завершения выполнявшихся можно использовать два способа:
1. периодическое выполнение снимка состояния системы и его анализ, для чего приложение, рассмотренное в п.1.1.1, подключается к обработчику прерываний таймера. Это просто, но неэффективно – приложения не запускаются и не завершаются то и дело.
2. подключение к процедуре запуска и завершения процессов с помощью функции ядра PsSetCreateProcessNotifyRoutine(), описанной в Windows 2000 DDK, путем регистрации функции обратного вызова. Это не так просто, как хотелось бы, но более эффективно.

1.4 Функция NtQuerySystemInformation

Различная системная информация доступна через функцию NtQuerySystemInformation.
Описание приведено в стиле С для интересующихся.

NTSTATUS  NtQuerySystemInformation(
IN SYSTEM_INFORMATION_CLASS SystemInformationClass,
IN OUT PVOID SystemInformation,
IN ULONG SystemInformationLength,
OUT PULONG ReturnLength OPTIONAL
		);

SystemInformationClass указывает тип информации, которую необходимо получить, SystemInformation - это указатель на результирующий буфер,
SystemInformationLength - размер этого буфера,
ReturnLength – количество записанных байт.
Для перечисления запущенных процессов следует установить в параметр SystemInformationClass значение SystemProcessesAndThreadsInformation.
#define SystemInformationClass 5
Возвращаемая структура в буфере SystemInformation:

typedef struct _SYSTEM_PROCESSES { 
				ULONG NextEntryDelta;
				ULONG ThreadCount;
				ULONG Reserved1[6];
				LARGE_INTEGER CreateTime;
				LARGE_INTEGER UserTime;
				LARGE_INTEGER KernelTime;
				UNICODE_STRING ProcessName; 
				KPRIORITY BasePriority;
				ULONG ProcessId;
				ULONG InheritedFromProcessId;
				ULONG HandleCount;
				ULONG Reserved2[2];
				VM_COUNTERS VmCounters;
				IO_COUNTERS IoCounters;  // только Windows 2000
				SYSTEM_THREADS Threads[1];
		} SYSTEM_PROCESSES, *PSYSTEM_PROCESSES;