*请教怎么根据窗体名来结束应用程序*

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

[解决办法]
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;