何在程中法程序?
何在程中法程序?

procedure thread1;
begin
...
.......
if close=true then //closetrue
begin
winexec(pchar(application.exename),sw_normal); //重自身程序
application.Terminate; //退出程序 //一作失效,程序有退出
end;
end;

h:=beginthread(nil,0,@thread1,nil,0,hid);

[解决办法]
不能在线程中结束程序。但是尝试：
当要结束程序时，先结束线程，然后返回给程序一个布尔。程序决定是否关闭