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

procedure GetProcessList(sl: TStrings);
var
  hProcSnap: THandle;
  pe32: TProcessEntry32;
begin
hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
if hProcSnap = INVALID_HANDLE_VALUE then exit;
pe32.dwSize := SizeOf(TProcessEntry32);
if Process32First(hProcSnap, pe32) = true then sl.Add(pe32.szExeFile);
while Process32Next(hProcSnap, pe32) = true do sl.Add(pe32.szExeFile);
CloseHandle(hProcSnap);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
TaskListe.Clear;
GetProcessList(TaskListe.Items);
end;					

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

procedure FillAppList(Applist: Tstrings); 
var
   Snap:THandle;
   ProcessE:TProcessEntry32;
begin
Applist.Clear;
Snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
ProcessE.dwSize:=SizeOf(ProcessE);
if Process32First(Snap,ProcessE) then begin
   Applist.Add(string(ProcessE.szExeFile));
   while Process32Next(Snap,ProcessE) do Applist.Add(string(ProcessE.szExeFile));
   end;
CloseHandle(Snap);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TaskListe.Clear;
EnumWindows(@EnumWinProc, Application.Handle);
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var
  AppHWnd: HWND;
  ProcessHandle: THandle;
  ProcessId: DWORD;
begin

  AppHWnd := FindWindow('Notepad', nil);
  if IsWindow(AppHWnd) then
  begin
    if GetWindowThreadProcessId(AppHWnd, ProcessId) <> 0 then
      if ProcessId <> 0 then
      begin
        ProcessHandle := OpenProcess(PROCESS_TERMINATE, False, ProcessId);
        if ProcessHandle <> 0 then
          if TerminateProcess(ProcessHandle, 0) then
            ShowMessage('Prozess wurde erfolgreich beendet.');
      end;
  end;

end;					

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:

procedure KillProcess(dwProcID: DWORD);
var
  hProcess : Cardinal;
  dw       : DWORD;
begin
  { open the process and store the process-handle }
  hProcess := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False, dwProcID);
  { kill it }
  TerminateProcess(hProcess, 0);
  { TerminateProcess returns immediately, so wie have to verify the result via
    WaitForSingleObject }
  dw := WaitForSingleObject(hProcess, 5000);
  case dw of
    { everythings's all right, we killed the process }
    WAIT_OBJECT_0: Messagebox(Application.Handle, 'Prozess wurde beendet.', 'Prozess beenden',
      MB_ICONINFORMATION);
    { process could not be terminated after 5 seconds }
    WAIT_TIMEOUT:
    begin
      Messagebox(Application.Handle, 'Prozess konnte nicht innerhalb von 5 Sekunden beendet werden.',
        'Prozess beenden', MB_ICONSTOP);
      exit;
    end;
    { error in calling WaitForSingleObject }
    WAIT_FAILED:
    begin
      RaiseLastOSError;
      exit;
    end;
  end;
  { and refresh listbox contend }
  Form1.Button1Click(Form1);
end;					

1:
2:
3:
4:

  if TerminateProcess(123, 0) then
    ShowMessage('Luckie hat recht.')
  else
    ShowMessage('Luckie hat unrecht.');					

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:

function KillProcess(ProcID: DWORD; TimeOut: DWORD): Integer;
var
  retValue     : Integer;
  hProcess     : Cardinal;
  dw           : DWORD;
begin
  retValue := 0;
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or SYNCHRONIZE or
    PROCESS_TERMINATE, False, ProcID);
  if hProcess <> INVALID_HANDLE_VALUE then
  begin
    if TerminateProcess(hProcess, 0) then
    begin
      dw := WaitForSingleObject(hProcess, TimeOut);
      case dw of
        WAIT_OBJECT_0: retValue := 0;
        WAIT_TIMEOUT: retValue := -1;
        WAIT_FAILED: retValue := GetLastError;
      end;
    end
    else // TerminateProcess failed
      retValue := GetLastError;
    Closehandle(hProcess);
  end
  else // OpenProcess failed
    retValue := GetLastError;
  result := retValue;
end;					

1:
2:
3:
4:
5:

HANDLE OpenProcess(
  DWORD dwDesiredAccess,
  BOOL bInheritHandle,
  DWORD dwProcessId
);