*****请问如何根据窗体名来结束应用程序*********

Question

请问如何根据窗体的Caption名称来杀掉这个窗体的应用程序.谢谢

Answer 1

procedure CloseApp(tcaption: string);
var  OtherThreadID: Cardinal;
  ProcessID: Cardinal;
  ProcessHandle: THandle;
  Exehandle: Thandle;
begin
  //获得句柄-->标题确定
  ExeHandle := findWindow(nil, pchar(tcaption));            //返回句柄
  //关闭程序
  if ExeHandle <> 0 then
  begin
    OtherThreadID := GetWindowThreadProcessID(ExeHandle, @ProcessID);  //获取与指定窗口关联在一起的一个进程和线程标识符
    ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessId);
    Windows.TerminateProcess(ProcessHandle, 4); //杀死一个正在运行的程序
  end;end;