Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Процессы

Автор: Dreyka 3.8.2004, 15:41

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

Автор: p0s0l 3.8.2004, 17:21

А какую нужно информацию для завершения процесса ? Только 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 процесса и имя исполняемого файла...