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 TaskClose(AHandle :HWND; AProcessID: DWord): LongBool; stdcall;
var
  myProcessID: DWord;
begin
  GetWindowThreadProcessId(AHandle, @myProcessID);
  // compare process id of AHandle against AProcessID
  if myProcessID=AProcessID then
    PostMessage(AHandle, WM_CLOSE, 0, 0);
  Result:= True;
end;
function TaskEnd(const AExeName: string): boolean;
var
  p: TProcessEntry32;
  h,ph: THandle;
begin
  Result:= false;
  p.dwSize:= SizeOf(p);
  h:= CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  try
    if Process32First(h, p) then
      repeat
        if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName) then
          Result:= EnumWindows(@TaskClose, p.th32ProcessID)
      until (not Process32Next(h, p)) or Result;
  finally
    CloseHandle(h);
  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:

// TaskClose
procedure TaskClose(const AExeName: string);
  function TaskCloseFunc(AHandle :HWND; AProcessID: DWord): LongBool; stdcall;
  var
    myProcessID: DWord;
  begin
    GetWindowThreadProcessId(AHandle, @myProcessID);
    // compare process id of AHandle against AProcessID WM_CLOSE_QUERY  WM_CLOSE
    if myProcessID=AProcessID then
      PostMessage(AHandle, WM_CLOSE, 0, 0);
    Result:= TRUE;
  end;
var
  p: TProcessEntry32;
  h: THandle;
begin
  p.dwSize:= SizeOf(p);
  h:= CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  try
    if Process32First(h, p) then
      repeat
        if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName) then
        begin
          EnumWindows(@TaskCloseFunc, p.th32ProcessID);
        end;
      until (not Process32Next(h, p));
  finally
    CloseHandle(h);
  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:

//<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
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;
//<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
procedure TForm1.taskkill2Timer(Sender: TObject);
begin
  KillTask('NOTEPAD.EXE');
end;
//<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<