Неубиваемый поток

[pupkinsoft]

Доброго времени суток.

TerminateThread почему то не убивает поток.
вот код:

procedure TWatching.Activate(const Value: boolean);
begin
 if Value and not GActive then
   WThread:=CreateThread(nil,0,@ThreadProc,self,CREATE_NEW,tid)
 else TerminateThread(WThread,1);
 GActive:=Value;
end;

сам поток работает нормально.. только вот никак не могу его убить. даже TerminateThread. в чем может быть дело?

//P.S: извиняюсь за ошибки и, может быть, непонятную формулировку. 2ю ночь не сплю(

[BOBAH13]

А где ThreadProc?

Включаю внутреннего джедая

[Stilet]

 if Value and not GActive then
   WThread:=CreateThread(nil,0,@ThreadProc,self,CREATE_NEW,tid)
 else 
 if not TerminateThread(WThread,1) then RaiseLastWin32Error;

...и после этого текст ошибки в студию

[pupkinsoft]

begin
 hDir := CreateFile(pchar(sender.FDirectory),GENERIC_READ,FILE_SHARE_READ or FILE_SHARE_WRITE
   or FILE_SHARE_DELETE,nil,OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS,0);
 if hDir = INVALID_HANDLE_VALUE
  then begin
    ShowMessage(SysErrorMessage(GetLastError));
    exit;
  end;
 GetMem(lpBuf,BUF_SIZE);
 repeat
  ZeroMemory(lpBuf,BUF_SIZE);
  if not ReadDirectoryChangesW(hDir,lpBuf,BUF_SIZE,true,sender.FdwNotifyFilter,@cReturn,nil,nil)
   then Break;
  Ptr:=lpBuf;
  repeat
   GetMem(FileName,PFileNotifyInformation(Ptr).FileNameLength+2);
   ZeroMemory(FileName,PFileNotifyInformation(Ptr).FileNameLength+2);
   lstrcpynW(FileName,PFileNotifyInformation(Ptr).FileName,
             PFileNotifyInformation(Ptr).FileNameLength div 2+1);
   exp.FullFileName:=sender.FDirectory+FileName;
   exp.Filename:=FileName;
   FreeMem(FileName);
   case PFileNotifyInformation(Ptr).Action of
    FILE_ACTION_ADDED             : exp.evnt:=('Создание');
    FILE_ACTION_REMOVED           : exp.evnt:=('Удаление');
    FILE_ACTION_MODIFIED          : exp.evnt:=('Изменение');
    FILE_ACTION_RENAMED_OLD_NAME  : exp.evnt:=('Переименование из');
    FILE_ACTION_RENAMED_NEW_NAME  : exp.evnt:=('Переименование в');
    else                            exp.evnt:=('Неопознанная операция');
   end;
   exp.Action:=PFileNotifyInformation(Ptr).Action;
   ext:=ExtractFileExt(LowerCase(exp.Filename));
   if ext<>'' then   delete(ext,1,1);
   if (exp.Filename<>lexp.Filename)or(exp.Action<>lexp.Action) then
    if Assigned(sender.FOnChange) then
     if (sender.FFilter='') or (pos(ext,sender.FFilter)<>0) then
        sender.FOnChange(exp);
   lexp:=exp;
   if PFileNotifyInformation(Ptr).NextEntryOffset=0
    then Break
     else begin
      Inc(Cardinal(Ptr),PFileNotifyInformation(Ptr).NextEntryOffset);
     end;
  until false;
 until false;
 FreeMem(lpBuf);
end;

Сообщение от Stilet

...и после этого текст ошибки в студию

SystemError Code:6 Неверный дескриптор

[Stilet]

Неверный дескриптор

Ну стало быть WThread ерунду содержит...

[BOBAH13]

Вам такие конструкции не смущают?

repeat ... until false;

Добавьте в тред переменную типа Canceled: Boolean; и ей установите Canceled := false; далее структуру repeat ... until Canceled; после когда захотите завершить поток просто вызывайте [Thread info переменная].Canceled := true; типа такого, надеюсь идея ясна.

[pupkinsoft]

и переменную добавил, и полностью переписал unit с потоком(вместо class(TObject), сделал class(TThread)). да и пускай не убивается. единственный минус - настройки придется делать при не запущенной программе. всем спасибо.

Добавлено:
P.S.:еще раз огромное спасибо BOBAH13 и Stilet. после полу дневных танцев с бубном заработал первоначальный вариант. вот она великая сила электрического импульса.