在运行时 bpl内
destructor TxxThread.Destroy;
begin
  //下面这段话...到结束 如果不加的话,exe关闭时就出错,加的话，又退不出来 ,请版主看看
  if ModuleIsLib then
  begin
    if not FreeOnTerminate then
    begin
      FreeOnTerminate := true;
      WaitFor;
      Exit;
    end;
  end;
  //结束
  Terminate;
  PMessages;
  WaitFor;
  inherited;
end;

我不知道你说的 bpl内线程 与普通线程有什么区别。

我想知道你想在 TxxThread.Destroy 里干什么。

destructor TxxThread.Destroy;
begin
  //下面这段话...到结束 如果不加的话,exe关闭时就出错,加的话，又退不出来 ,请版主看看
  if ModuleIsLib then
  begin
    if not FreeOnTerminate then //判断是不是结束时退出
    begin
      FreeOnTerminate := true;   //让结束时退出
      WaitFor;                            //暂先不退出，等待这个线程的事情结束后由于FreeOnTerminate := true会再次触发 Destroy 以便执行下面代码
      Exit;
    end;
  end;
  //结束
  Terminate;
  PMessages;
  WaitFor;
  inherited;
end;

这是rem内的，怎么改都退不出来，我只好把多线程的这块分出来，不放在bpl内，其它的合做成一个静态包bpl
以前不相信多线程不能打包到bpl内，通过自己做才相信了这点，不是退不出来，就是内存报错，
注：这段代码放在exe内，不会报错

[ 本帖最后由 niaoge 于 2007-8-29 01:32 编辑 ]

WaitFor的时候会再次触发Destroy？

Because wait for will not set Terminated flag before calling WaitForSingleObject API,  so your program will be stuck just before Exit.
Instead, I think you should call Terminate and then call Exit.