杀死窗口进程：

杀死窗口进程：
procedure TForm1.Button5Click(Sender: TObject);
var
H:THandle;
P:DWORD;
s:string;
killed:boolean;
begin
s := ListBox1.Items[ListBox1.ItemIndex];
H:=FindWindow(nil,pchar(s));
if H<>0 then
begin
   GetWindowThreadProcessId(H,@P);
   if P<>0 then
     killed:=TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P),$FFFFFFFF);
   if not killed then
     messagebox(self.handle,pchar(s+'无法杀死！'),'提示',MB_OK or MB_ICONWARNING)
   else
     ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

end;