Создание потока в dll

[kenji]

Не получается запустить поток в длл. Именно при LogThread:= TLogThread.Create(false); длл выдаёт ошибку.
Поток нужен для мониторинга некоторого события, поэтому код должен быть зациклен.
Если не делать потока, то всё работает, но вызывающая прога просто зависает (ну так и должно быть).
Может я упустил какой-то принцип создания потока именно в длл? Когда этот код был в ехе, то всё работало как надо.

library logmonitor;

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  XPMan,
  Grids,
  StdCtrls,
  ActiveX,
  ExtCtrls,
  mmsystem,
  Filter;

const
  SID_IAccessible = '{618736E0-3C3D-11CF-810C-00AA00389B71}';
  IID_IAccessible: TGUID = SID_IAccessible;
  NAVDIR_FIRSTCHILD = 7;
  NAVDIR_NEXT = 5;
  NewLogMax = 10;

type
  IAccessible = interface(IDispatch)
    [SID_IAccessible]
    function Get_accParent(out ppdispParent: IDispatch): HRESULT; stdcall;
    function Get_accChildCount(out pcountChildren: Integer): HRESULT; stdcall;
    .....
      const pszValue: WideString): HRESULT; stdcall;
  end;

function AccessibleObjectFromWindow(hwnd: THandle; dwId: DWORD;
  const riid: TGUID; out ppvObject): HRESULT; stdcall; external 'oleacc.dll';

type
  TLogThread = class(TThread)
    private
      NewLog     :byte;
      Acc          :IAccessible;
      Res          :HRESULT;
      AccChild    :OleVariant;
      iTime        :WideString;
      iMsg         :WideString;
    protected
      procedure Execute; override;
    end;

var
  LogThread      :TLogThread;
  LastTime       :WideString;
  PreLastTime    :WideString;
  LastMsg        :WideString;
  PreLastMsg     :WideString;
  first          :boolean;
  Journal        :HWND;
  NewLog         :byte;

{$R *.res}

// ñëóæåáíîå -----
function EnumChildProc(hWnd: HWND; lParam: LPARAM): BOOL; stdcall;
var
  CName:       array[0..Pred(MAX_PATH)] of Char;
  CNLen:       Integer;
begin
 //кое что делает
end;

// ñëóæåáíîå --- ñèíõðîíèçàöèÿ ïîòîêà
procedure TLogThread.Execute;
begin
Journal:= 0;
NewLog := 0;
first:= true;

while not Terminated do
   begin
   
   try
   // что-то делает
   except
   ShowMessage('Error');
   end;

   Application.ProcessMessages;
   Sleep(50); 
   end;
end;

// ñòàðò àíàëèçà
function StartMonitor(hndl: integer): integer; stdcall; export;
begin
if hndl <= 0 then ShowMessage('Íåâåðíûé äåñêðèïòîð')
else
   begin
   EnumChildWindows(HWND(hndl), @EnumChildProc, LPARAM(@Journal));
   if Journal = 0 then ShowMessage('Îêíî æóðíàëà íå íàéäåíî')
   else
   try
   if (LogThread.Terminated = true) then
         begin
         LogThread:= TLogThread.Create(false);
         LogThread.Priority:= tpNormal;
         LogThread.FreeOnTerminate:= true;
         end;
   except
      ShowMessage('Error of thread'); // при запуске выходит это сообщение
   end;
   end;
result := GetLastError;
end;

// ñòîï àíàëèçà
function StopMonitor(): integer; stdcall;
begin
if (LogThread.Terminated = false) then LogThread.Terminate;
result := GetLastError;
end;

exports StartMonitor, StopMonitor;

begin
CoInitialize(nil);
end.

[Пепел Феникса]

ошибка то какая?

[kenji]

Пока не могу посмотреть. Переношу поток в отдельный юнит.

[kenji]

Всё заработало. Надо было перенести код потока в отдельный юнит.

Осталось разобраться с остановкой потока, а то при вызове завершения вызывающая прога вылетает