怎样结束应用程序的线程?

[ssyuwn198001]

我在对程序进行关闭时应用
begin
application.free;
application.destroy;
end;
但是，delphi不能进行编译，原来是线程没有取消掉，请问如何结束程序的线程？

[wjlsmail]

你的这个可以用：

Application.Terminate ;

[wjlsmail]

程序中有线程吗？
”delphi不能进行编译，原来是线程没有取消掉“ ---- 什么意思？

觉得你的这个可以用：

Application.Terminate ;

[SilveryFox]

同意楼上

[SilveryFox]

如何结束一个应用程序：
uses tlhelp32;
假设要终止的程序的文件名为：abc.exe，那么例程如下：
var
lppe:tprocessentry32;
sshandle:thandle;
hh:hwnd;
found:boolean;
begin
sshandle:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
found:=process32first(sshandle,lppe);
while found do
begin
//进行你的处理其中lppe.szExefile就是程序名。
if uppercase(extractfilename(lppe.szExeFile))='abc.EXE' then
begin
hh:=OpenProcess(PROCESS_ALL_ACCESS,true,lppe.th32ProcessID);
TerminateProcess(hh,0);
end;
found:=process32next(sshandle,lppe);
end;
end;