function TerminateProcessByTitle(ATitle: string): boolean;
var
  hWindow: HWND;
begin
  Result := false;      hWindow := FindWindow(nil, PChar(ATitle));      if hWindow <> 0 then
    Result := TerminateProcessByHWND(hWindow);    end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  TerminateProcessByTitle('未命名 - 記事本');
end;

   AppHandle := findwindow(nil, Pchar('未命名 - 記事本')); //找aPP
   if AppHandle>0 then
   begin
      SetForegroundWindow(AppHandle);
      Postmessage(AppHandle, WM_CLOSE, 0 ,0); //改用postmessage不等待回應才能關閉下面messagebox
      repeat
         AppHandle:=findwindow(nil, Pchar('記事本'));//找messagebox
         Sleep(10);
         Application.ProcessMessages;
      until AppHandle>0;
      SetForegroundWindow(AppHandle);
      keybd_event(Ord('N'),MapVirtualKey(Ord('N'),0),0,0);
      keybd_event(Ord('N'),MapVirtualKey(Ord('N'),0),KEYEVENTF_KEYUP,0); //送出N不存檔關閉
   end;

function KillProcessByID(APID: THandle): boolean;
var
 AhProcess: THandle;
begin
object.
 AhProcess := OpenProcess(PROCESS_ALL_ACCESS, TRUE, APID);
 Result := TerminateProcess(AhProcess, 0);
end;    function TerminateProcessByHWND(AhWND: HWND): boolean;
var
  AProcessID: DWORD;
begin
Result := false;
if AhWND <> 0 then
 begin
  GetWindowThreadProcessId(AhWND, @AProcessID);
  Result := KillProcessByID(AProcessID);
 end;
end;    function TerminateProcessByTitle(ATitle: string): boolean;
var
  hWindow: HWND;
begin
Result := false;
hWindow := FindWindow(nil, PChar(ATitle));
if hWindow <> 0 then
 Result := TerminateProcessByHWND(hWindow);
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
 if TerminateProcessByTitle('未命名 - 記事本') then
end;