var ATargetWindow := FindWindow(nil, 'Untitled - Notepad');
if ATargetWindow = 0 then
    Exit();

var AProcessId : Cardinal;
if GetWindowThreadProcessId(ATargetWindow, AProcessId) = 0 then
  raise EWindowsException.Create('GetWindowThreadProcessId');

var hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, AProcessId);
if hProcess = 0 then
  raise EWindowsException.Create('OpenProcess');
try
  if not TerminateProcess(hProcess, 0) then
    raise EWindowsException.Create('TerminateProcess');
finally
  CloseHandle(hProcess);
end;