{----------------------------------------------------------------------------------
Для получения списка процессов необходимо использование модуля tlhelp32 (uses tlhelp32).
LoadProcList — процедура загрузки списка процессов в TStrings, например в TListBox.Items.
TermProc — процедура уничтожения процесса по его ID, который можно получить используя LoadProcList.
----------------------------------------------------------------------------------}

Procedure LoadProcList ( List : TStrings );
Var
Proc : Thandle;
ProcTag : TagProcessentry32;
begin
Proc := CreateToolHelp32Snapshot( TH32CS_SNAPPROCESS, 0 );
ProcTag.dwSize := SizeOf ( ProcTag );
If Process32first ( Proc,ProcTag ) then
Repeat
List.Add ( ProcTag.ЧТО_ТЕБЕ_НАДО );
Until not Process32Next ( Proc, ProcTag )
End;

Procedure TermProc ( ProcID : Cardinal );
var
Proc : THandle;
begin
Proc := openprocess (PROCESS_TERMINATE, False, ProcID );
TerminateProcess ( Proc, 0 );
end;

//Пример:

Begin
LoadProcList ( ProcList.Items );
TermProc ( GetCurrentProcessId );
End;

+----------------------+
| С уважением, Static. |
| static@ecard.ru |
+----------------------+