процессы в делфи

[Андрей.12]

как в делфи получить список процессов и работать с ними, выключать и т.д

[Dzmitry Loktseu]

 procedure GetProcessesNames(out Names: TStrings);
  var
    h: Thandle;
    pe: TProcessEntry32;
  begin
    h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
    if h <> INVALID_HANDLE_VALUE then
      try
        if Process32First(h, pe) then
          repeat
            Names.Add(pe.szExeFile)
          until not Process32Next(h, pe);
      finally
        CloseHandle(h);
      end;
  end;

TProcessEntry32 -> F1

[Андрей.12]

а можно пояснения к коду

[Dzmitry Loktseu]

функцией CreateToolHelp32Snapshot(TH32CS_Sna pProcess, 0) получаем снимок всех процессов в памяти в данный момент. дальше в цикле тупо выводим инфу по каждому из них.