procedure GetProcList;
var  Snapshot: cardinal;
     ProcessEntry: TProcessEntry32;
begin
    try
       Snapshot:=CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0 );
       if Snapshot <> INVALID_HANDLE_VALUE then
       begin
         ProcessEntry.dwSize:=sizeOf(ProcessEntry);
         if Process32First(Snapshot, ProcessEntry) then
         repeat
           Form1.ListBox1.Items.Add(IntToStr(ProcessEntry.th32ProcessID));
         until not Process32Next(Snapshot,ProcessEntry);
       end;
    finally
       CloseHandle(Snapshot)
    end;
end;