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:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

function TerminateEXE(sFile: string): Bool;
var verSystem: TOSVersionInfo; hdlSnap,hdlProcess: THandle; bPath,bLoop: Bool;
    peEntry: TProcessEntry32; arrPid: array [0..1023] of DWord; iC: DWord; 
    i,iCount: Integer; arrModul: array [0..299] of Char; hdlModul: HMODULE; 
begin 
 result:=false; 
 if ExtractFileName(sFile)=sFile then bPath:=false else bPath:=true; 
 verSystem.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo); 
 GetVersionEx(verSystem); 
 if verSystem.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS then begin 
  hdlSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); 
  peEntry.dwSize:=Sizeof(peEntry); 
  bLoop:=Process32First(hdlSnap,peEntry); 
  while integer(bLoop)<>0 do begin 
   if bPath then begin 
    if CompareText(peEntry.szExeFile,sFile)=0 then begin 
     TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,peEntry.th32ProcessID),0); 
     result:=true; 
    end; 
   end else begin 
    if CompareText(ExtractFileName(peEntry.szExeFile),sFile)=0 then begin 
     TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,peEntry.th32ProcessID),0); 
     result:=true; 
    end; 
   end; 
   bLoop:=Process32Next(hdlSnap,peEntry); 
  end; 
  CloseHandle(hdlSnap); 
 end else 
 if verSystem.dwPlatformId=VER_PLATFORM_WIN32_NT then begin 
  EnumProcesses(@arrPid,SizeOf(arrPid),iC);
  iCount:=iC div SizeOf(DWORD);
  for i:=0 to Pred(iCount) do begin 
   hdlProcess:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,false,arrPid[i]); 
   if (hdlProcess<>0) then begin
    EnumProcessModules(hdlProcess,@hdlModul,SizeOf(hdlModul),iC); 
    GetModuleFilenameEx(hdlProcess,hdlModul,arrModul,SizeOf(arrModul)); 
    if bPath then begin 
     if CompareText(arrModul,sFile)=0 then begin 
      TerminateProcess(OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,False,arrPid[i]), 0); 
      result:=true; 
     end; 
    end else begin 
     if CompareText(ExtractFileName(arrModul),sFile)=0 then begin 
      TerminateProcess(OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,False,arrPid[i]), 0); 
      result:=true; 
     end;
    end;
    CloseHandle(hdlProcess); 
   end; 
  end;
 end;
 end;                    

1:

TerminateExe ('Notepad.exe');                    

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

uses
  TLHelp32;

...

function KillProcess(const ExeName: String):Boolean;
var
  Process: TProcessEntry32;
  h: THandle;
begin
  Result := False;
  Process.dwSize := SizeOf(Process);
  h := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  try
   if Process32First(h, Process) then
    repeat
     if AnsiLowerCase(Process.szExeFile) = AnsiLowerCase(ExeName) then Result := TerminateProcess(OpenProcess(Process_Terminate, False, Process.th32ProcessID), 0);
    until (not Process32Next(h, Process)) or Result;
  finally
   CloseHandle(h);
  end;
end;                    

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

function KillProcess(const ExeName: String):Boolean;
var
  Process: TProcessEntry32;
  h: THandle;
begin
  Result := False;
  Process.dwSize := SizeOf(Process);
  h := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0); //erstellt eine Liste der laufenden Prozesse
  try
   if Process32First(h, Process) then  //Nimmt sich den ersten Prozess vor
    repeat
     if AnsiLowerCase(Process.szExeFile) = AnsiLowerCase(ExeName) then Result := TerminateProcess(OpenProcess(Process_Terminate, False, Process.th32ProcessID), 0);  //ist der Dateiname des Prozesses gleich dem Parameter ExeName wird terminateProccess aufgerufen um den Prozess zu beenden
    until (not Process32Next(h, Process)) or Result; //Weiter zum nächsten Prozess falls vorhanden
  finally
   CloseHandle(h);
  end;
end;