VPF::Процессы - Форум программистов

Dreyka

Дата 3.8.2004, 15:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 13.7.2004

Репутация: нет
Всего: нет

Приветствую вас!
Мне нужно сделать так, чтобы программа делала не только слепок системных процессов, но и получала информацию о них для того чтобы я мог их завершать.

p0s0l

Дата 3.8.2004, 17:21 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

А какую нужно информацию для завершения процесса ? Только PID...
Используй CreateToolhelp32Snapshot

Код


uses tlhelp32;

procedure TForm1.Button1Click(Sender: TObject);
var
  hSnapShot: THandle;
  ProcInfo: TProcessEntry32;
begin
  hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  ProcInfo.dwSize := SizeOf(ProcInfo);
  if (Process32First(hSnapshot, ProcInfo)) then
    repeat
      ListBox1.Lines.Add(IntToStr(ProcInfo.th32ProcessID) + ' ' + ProcInfo.szExeFile);
    until not Process32Next(hSnapShot, ProcInfo);
  CloseHandle(hSnapShot);
end;

В ListBox1 выводится PID процесса и имя исполняемого файла...

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »