🚀 go-pugleaf

Hi all!
When using below code in an application (.exe) it works fine, but
moving it to a .DLL, the SillyThread wont terminate if i put some
breakpoints in the thread and/or in the mainthread. Any ideas on this
appreciated





unit Unit1;

interface

implementation

uses
  Classes, SysUtils, SyncObjs;

type
  TSillyThread = class(TThread)
  protected
    procedure Execute; override;
  public
    SimpleEvent: TSimpleEvent;

    constructor Create;
    destructor Destroy; override;
  end;

var
  SillyThread: TSillyThread;
{ TSillyThread }

constructor TSillyThread.Create;
begin
  inherited Create(True);
  SimpleEvent := TSimpleEvent.Create;
  Resume;
end;

destructor TSillyThread.Destroy;
const
  INFINITY = $FFFFFFFF;
begin
  Terminate;
  //WaitFor; //Does not work. Seams to require a messageloop which
there are none in a DLL
  SimpleEvent.WaitFor(INFINITY);
  SimpleEvent.Free;

  inherited Destroy;
end;

procedure TSillyThread.Execute;
begin
  while not Terminated do
    Sleep(1000);
  SimpleEvent.SetEvent;
end;

initialization
  SillyThread := TSillyThread.Create;
finalization
  SillyThread.Free;
end.