Потоки: неверный дескриптор(6) при создании потока

[[MoNAMur]]

Поток должен мониторить состояние файлов в директории.

создание потока:

procedure TForm2.Button1Click(Sender: TObject);
var
    mon : TFileMon;
begin
    mon := TFileMon.Create(Edit1.Text);
    mon.Priority := tplower;
    mon.startDetecting;
end;

на строчке end; код останавливается с "неверный дескриптор(6)"

код потока

unit FilesMonitor;

interface

uses Classes, SysUtils, Windows, ShellAPI, Dialogs, Forms;

type
    PFileNotifyInformation = ^TFileNotifyInformation;
    TFileNotifyInformation = record
        NextEntryOffset: DWORD;
        Action: DWORD;
        FileNameLength: DWORD;
        FileName: array [0..MAX_PATH - 1] of WideChar;
end;

type TFileMon = class(TThread)
  private
        DirectoryMonitoring : THandle;
        FilesListing : TStringList;
  protected
        procedure Execute; override;
  public
        constructor Create(DirPath:string);
        destructor  Destroy; override;
        procedure addFileToListing(FileName: string);
        procedure deleteFileFromListing(FileName: string);
        procedure changeFileAction(FileName: string);
        procedure clearFilesListing;
        procedure detectChanges;
        procedure startDetecting;
end;

const
  FilterNotify =  FILE_NOTIFY_CHANGE_FILE_NAME or
            FILE_NOTIFY_CHANGE_DIR_NAME or
            FILE_NOTIFY_CHANGE_ATTRIBUTES or
            FILE_NOTIFY_CHANGE_SIZE or
            FILE_NOTIFY_CHANGE_LAST_WRITE or
            FILE_NOTIFY_CHANGE_LAST_ACCESS or
            FILE_NOTIFY_CHANGE_CREATION or
            FILE_NOTIFY_CHANGE_SECURITY;

implementation

constructor TFileMon.Create(DirPath:string);
begin
     DirectoryMonitoring := CreateFile(PWideChar(DirPath),
                        GENERIC_READ,
                        FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,
                        nil,
                        OPEN_EXISTING,
                        FILE_FLAG_BACKUP_SEMANTICS,
                        0);
     FilesListing := TStringList.Create;
{
при пошаговом выполнении видно что DirectoryMonitoring содержит нормальный указатель на папку. FilesListing создается тоже нормально.
}
end;

destructor TFileMon.Destroy;
begin
    FilesListing.Free;
    if DirectoryMonitoring <> INVALID_HANDLE_VALUE then
       CloseHandle(DirectoryMonitoring);
    inherited;
end;

procedure TFileMon.addFileToListing(FileName:string);
begin
      showmessage('добавлен файл '+ FileName);
     {
     if FilesListing.IndexOf(FileName) = -1 then
        FilesListing.Add(FileName);
     }
end;

procedure TFileMon.deleteFileFromListing(FileName: string);
begin
     showmessage('удален файл '+ FileName);
     {
     if FilesListing.IndexOf(FileName) <> -1 then
        FilesListing.Delete(FilesListing.IndexOf(FileName));
     }
end;

procedure TFileMon.changeFileAction(FileName: string);
begin
    showmessage('изменен файл '+ FileName);
end;


procedure TFileMon.clearFilesListing;
begin
     FilesListing.Clear;
end;

procedure TFileMon.detectChanges; 
var
    Notify: TFileNotifyInformation;
    BytesReturned: DWORD;
begin
    if DirectoryMonitoring <> INVALID_HANDLE_VALUE then
      try
          if not ReadDirectoryChangesW(DirectoryMonitoring,
                                      @Notify,
                                      SizeOf(TFileNotifyInformation),
                                      False,
                                      FilterNotify,
                                      @BytesReturned,
                                      nil,
                                      nil) then
              raise Exception.Create(SysErrorMessage(GetLastError))
          else
              case Notify.Action of
                  FILE_ACTION_ADDED: addFileToListing(Notify.FileName);
                  FILE_ACTION_REMOVED: deleteFileFromListing(Notify.FileName);
                  FILE_ACTION_MODIFIED: changeFileAction(Notify.FileName);
              //    FILE_ACTION_RENAMED_OLD_NAME: showmessage('Old Name file' + Notify.FileName);
              //    FILE_ACTION_RENAMED_NEW_NAME: showmessage('New Name file' + Notify.FileName);
              end;
      except
          //   
      end;
end;

procedure TFileMon.Execute;
begin
     while true do
      begin
        synchronize(detectChanges);
      end;
end;

procedure TFileMon.startDetecting;
begin
    Execute;
end;

end.

В чем ошибка, подскажите?

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

procedure TFileMon.startDetecting;
begin
    Execute;
end;

где ж вы так учились потоки делать?

procedure TFileMon.Execute;
begin
     while true do
      begin
        synchronize(detectChanges);
      end;
end;

мдя...и толку от потока тогда?

[[MoNAMur]]

Пепел Феникса, покажи как правильно

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

unit FilesMonitor;

interface

uses Classes, SysUtils, Windows, ShellAPI, Dialogs, Forms;

type
    PFileNotifyInformation = ^TFileNotifyInformation;
    TFileNotifyInformation = record
        NextEntryOffset: DWORD;
        Action: DWORD;
        FileNameLength: DWORD;
        FileName: array [0..MAX_PATH - 1] of WideChar;
end;

type TFileMon = class(TThread)
  private
        DirectoryMonitoring : THandle;
        FilesListing : TStringList;
  protected
        procedure Execute; override;
  public
        constructor Create(DirPath:string);
        destructor  Destroy; override;
        procedure addFileToListing(FileName: string);
        procedure deleteFileFromListing(FileName: string);
        procedure changeFileAction(FileName: string);
        procedure detectChanges;
end;

const
  FilterNotify =  FILE_NOTIFY_CHANGE_FILE_NAME or
            FILE_NOTIFY_CHANGE_DIR_NAME or
            FILE_NOTIFY_CHANGE_ATTRIBUTES or
            FILE_NOTIFY_CHANGE_SIZE or
            FILE_NOTIFY_CHANGE_LAST_WRITE or
            FILE_NOTIFY_CHANGE_LAST_ACCESS or
            FILE_NOTIFY_CHANGE_CREATION or
            FILE_NOTIFY_CHANGE_SECURITY;

implementation

constructor TFileMon.Create(DirPath:string);
begin
     inherited Create(false);
     DirectoryMonitoring := CreateFile(PWideChar(DirPath),
                        GENERIC_READ,
                        FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,
                        nil,
                        OPEN_EXISTING,
                        FILE_FLAG_BACKUP_SEMANTICS,
                        0);
     FilesListing := TStringList.Create;
     Resume;
end;

destructor TFileMon.Destroy;
begin
    FilesListing.Free;
    if DirectoryMonitoring <> INVALID_HANDLE_VALUE then
       CloseHandle(DirectoryMonitoring);
    inherited;
end;

procedure TFileMon.addFileToListing(FileName:string);
begin
      showmessage('добавлен файл '+ FileName);
     {
     if FilesListing.IndexOf(FileName) = -1 then
        FilesListing.Add(FileName);
     }
end;

procedure TFileMon.deleteFileFromListing(FileName: string);
begin
     showmessage('удален файл '+ FileName);
     {
     if FilesListing.IndexOf(FileName) <> -1 then
        FilesListing.Delete(FilesListing.IndexOf(FileName));
     }
end;

procedure TFileMon.changeFileAction(FileName: string);
begin
    showmessage('изменен файл '+ FileName);
end;

procedure TFileMon.detectChanges; 
var
    Notify: TFileNotifyInformation;
    BytesReturned: DWORD;
begin
    if DirectoryMonitoring <> INVALID_HANDLE_VALUE then
      try
          if not ReadDirectoryChangesW(DirectoryMonitoring,
                                      @Notify,
                                      SizeOf(TFileNotifyInformation),
                                      False,
                                      FilterNotify,
                                      @BytesReturned,
                                      nil,
                                      nil) then
              raise Exception.Create(SysErrorMessage(GetLastError))
          else
              case Notify.Action of
                  FILE_ACTION_ADDED: addFileToListing(Notify.FileName);
                  FILE_ACTION_REMOVED: deleteFileFromListing(Notify.FileName);
                  FILE_ACTION_MODIFIED: changeFileAction(Notify.FileName);
              //    FILE_ACTION_RENAMED_OLD_NAME: showmessage('Old Name file' + Notify.FileName);
              //    FILE_ACTION_RENAMED_NEW_NAME: showmessage('New Name file' + Notify.FileName);
              end;
      except
          //   
      end;
end;

procedure TFileMon.Execute;
begin
     while not Terminated do
      begin
        detectChanges;
      end;
end;

end.

так оно будет работать поидее(у меня нет Делфи и в ней давно уже серьезно не пишу),хотя тут лучше в файл выводить.
и вообще я обычно если надо контролировать поток извне, делаю чтото типа стека команд для потока.

[[MoNAMur]]

Спасибо, теперь все хорошо работает.