function TForm1.FindProcesses (aKey : String; aList : TList = nil) : Integer;
var
szProcessName : Array [0..1024] of Char;
ProcessName   : String;
hProcess      : Integer;
aProcesses    : Array [0..1024] of DWORD;
cProcesses    : DWORD;
cbNeeded      : Cardinal;
i             : UINT;
hMod          : HMODULE;
begin
 
Result:= 0;
aKey:= lowercase(akey);
 
if not (EnumProcesses(@aProcesses, sizeof(aProcesses), cbNeeded)) then
exit;
 
// Calculate how many process identifiers were returned.
cProcesses := cbNeeded div sizeof(DWORD);
 
// Print the name and process identifier for each process.
for i:= 0 to cProcesses - 1 do
begin
szProcessName := 'unknown';
hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
FALSE, aProcesses[i]);
 
// Get the process name.
if (hProcess <> 0) then
if (EnumProcessModules(hProcess, @hMod, sizeof(hMod),cbNeeded)) then
GetModuleBaseName (hProcess, hMod, szProcessName, sizeof(szProcessName));
 
ProcessName:= lowercase (szProcessName);
 
CloseHandle(hProcess);
if pos (aKey, ProcessName) <> 0 then
begin
result:=aProcesses[i];
if aList <> nil then
aList.add(Pointer (aProcesses[i]))
else
exit;
end;
end;
 
if aList <> nil then
Result:= aList.count
else
Result:=0;
end;
 
function TForm1.KillProcess (aProcessId : Cardinal) : boolean;
var
hProcess : integer;
begin
 
hProcess:= OpenProcess(PROCESS_ALL_ACCESS, TRUE, aProcessId);
Result:= false;
 
if (hProcess <>0 ) then
begin
Result:= TerminateProcess(hProcess, 0);
exit;
end;
end;

  if not KillProcess(FindProcesses('notepad.exe')) then
ShowMessage('Processo não finalizado.')
else
ShowMessage('Processo finalizado com sucesso!.');