C builder RAD 2010 RTL/VCL 应用程序 ->Terminate() 函数不终止应用程序

Question

我这里也描述了一个问题： http://www.delphigroups.info/3/ 9/106748.html

我尝试了几乎所有形式的将 Application->Terminate() func 放置在代码中的任何位置，而不是“return 0”、“ExitProcess(0)”、“ExitThread(0)” '，退出（0）。没有工作变体会关闭应用程序。相反，Application->Terminate() 语句之后的代码正在运行。

我的应用程序中有两个或更多线程。我尝试在执行后创建的线程和主线程中调用终止函数。

此外，这与 CodeGuard / madExcept 无关（据我想象）（我已将其关闭并打开，没有效果）。 CodeGuard的转向也没有成功。

唯一有效的代码变体是将 Application->Terminate() 调用放置到任何表单按钮的 OnClick 处理程序中。但这不符合我的需求。我需要在任何地方终止。

我应该怎么做才能终止 C++ Builder 2010 应用程序中的所有线程，然后终止进程？

Answer 1

应用程序->Terminate() 不会立即关闭应用程序，它仅表明您要关闭应用程序。

终止调用 Windows API
PostQuitMessage 函数执行
有序关闭应用程序。
不会立即终止。

在您的函数中调用 Application->ProcessMessages() 然后检查应用程序->终止 属性为 true。

对于使用的应用程序
计算密集型循环，调用
定期处理消息，以及
还要检查终止以确定
是否中止计算以及
允许应用程序终止

例如：

void Calc()
{
  for (int x = 0; x < 1000000; ++x)
  {
    // perform complex calculation

    // check if need to exit
    Application->ProcessMessages();
    if (Application->Terminated)
    {
      break;
    } // end if
  } // end for

  // clean up
}