Получение списка процессов

uses
  TlHelp32;

procedure GetProcessList;
const
  cFileName = 'ProcessList.txt';
var
  ProcessSnap: THandle;
  PE32: TProcessEntry32;
  F: TextFile;
begin
  ProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if ProcessSnap <> INVALID_HANDLE_VALUE then
  begin
    PE32.dwSize := SizeOf(TProcessEntry32);
    if Process32First(ProcessSnap, PE32) then
    begin
      AssignFile(F, cFileName);
      Rewrite(F);
      repeat
        WriteLn(F, PE32.szExeFile);
      until not Process32Next(ProcessSnap, PE32);
      CloseFile(F);
    end;
    CloseHandle(ProcessSnap);
  end;
end;

procedure GetProcessList;
const
  cFileName = 'ProcessList.txt';
var
  ProcessSnap: THandle;
  PE32: TProcessEntry32;
begin
  ProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if ProcessSnap <> INVALID_HANDLE_VALUE then
  begin
    PE32.dwSize := SizeOf(TProcessEntry32);
    if Process32First(ProcessSnap, PE32) then
    begin
      with TStringList.Create do
        try
          repeat
            Add(PE32.szExeFile);
          until not Process32Next(ProcessSnap, PE32);
          SaveToFile(cFileName);
        finally
          Free;
        end;
    end;
    CloseHandle(ProcessSnap);
  end;
end;