Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как убить задачу, зная только имя .exe?

01.01.2007
nbsp;
{Эта небольшая функция закрывает приложения, соответствующие заданному имени .exe. 
 
Пример: KillTask('notepad.exe');
         
KillTask('iexplore.exe'); }
uses
  Tlhelp32
, Windows, SysUtils;
 
function KillTask(ExeFileName: string): integer;
const
  PROCESS_TERMINATE
=$0001;
var
 
ContinueLoop: BOOL;
 
FSnapshotHandle: THandle;
  FProcessEntry32
: TProcessEntry32;
begin
  result
:= 0;
 
 
FSnapshotHandle := CreateToolhelp32Snapshot
                     
(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32
.dwSize := Sizeof(FProcessEntry32);
 
ContinueLoop := Process32First(FSnapshotHandle,
                                 FProcessEntry32
);
 
 
while integer(ContinueLoop) <> 0 do
 
begin
   
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
         
UpperCase(ExeFileName))
     
or (UpperCase(FProcessEntry32.szExeFile) =
         
UpperCase(ExeFileName))) then
     
Result := Integer(TerminateProcess(OpenProcess(
                        PROCESS_TERMINATE
, BOOL(0),
                        FProcessEntry32
.th32ProcessID), 0));
   
ContinueLoop := Process32Next(FSnapshotHandle,
                                  FProcessEntry32
);
 
end;
 
 
CloseHandle(FSnapshotHandle);
end;

Взято из https://forum.sources.ru