1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure ListProcesses(Listbox: TListBox);
const
  sep = #13#10;
var
  str, buf: string;
  i, s, e: integer;
  first: boolean;
begin
  first := true;
  e := 0;
  s := 0;
  str := UallProcess.FindallProcesses;
  for i := 1 to length(str) do
    begin
      buf := Copy(str, i, 2);
      if buf = sep then
        begin
          if first = true then
            begin
              s := i + 2;
              first := false;
            end;
          if s <> 0 then
            e := i + 2;
          if e = 0 then
            s := i + 2;
          if (s <> 0) and (e <> 0) then
            begin
              listbox.items.add(copy(str, s, e - s - 2));
              e := 0;
              s := 0;
            end;
        end;
    end;
  listbox.Items.delete(0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure GetProcessList(const aProcessList: TStrings);
var
  Snap: THandle;
  ProcessE: TProcessEntry32;
begin
  aProcessList.Clear;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  try
    ProcessE.dwSize := SizeOf(ProcessE);
    if Process32First(Snap, ProcessE) then
      Repeat
        aProcessList.Add(ProcessE.szExeFile);
      until not Process32Next(Snap, ProcessE)
    else
      RaiseLastOSError;
  finally
    CloseHandle(Snap);
  end;
end;