Потоки: цикличность выполнения

[[MoNAMur]]

почему someproc выполняется только один раз, в то время как detectChanges отрабатывает как надо несколько раз.
detectChanges - отслеживает изменения в папке(создание, удаление файлов)

procedure TMNTThread.Execute;
begin
     while not Terminated do
      begin
           Synchronize(someproc);
           Synchronize(detectChanges);
      end;
end;

...

procedure TMNTThread.someproc;
begin
     showmessage('someproc running');
end;

[evg_m]

showmessage('someproc running');

ОСТАНАВЛИВАЕТ работу процедуры ДО реакции пользователя.
т.е. выход из

procedure TMNTThread.someproc;

НЕ РАНЬШЕ чем пользователь зароет окно сообщения.

Synchronize(someproc);

ОСТАНАВЛИВАЕТ работу потока ДО окончания работы указанной процедуры.
тоже относится и к

Synchronize(detectChanges);

Т.е. поток ОСТАНОВЛЕН и ждет когда пользователь закроет окно. После закрытия окна сообщения поток продолжит работу.
А поскольку работы никакой то сразу видим новое окно сообщения (но точная копия старого).

P.S. На форуме было много тем как надо и как не надо использовать Synchronize в потоках.

[[MoNAMur]]

если закоментить метод detectChanges То работает нормально

procedure TMNTThread.detectChanges;
var
    Notify: TFileNotifyInformation;
    BytesReturned: DWORD;
    FileName : PWideChar;
begin
    if DirectoryMonitoring <> INVALID_HANDLE_VALUE then
          if not ReadDirectoryChangesW(DirectoryMonitoring,
                                      @Notify,
                                      SizeOf(TFileNotifyInformation),
                                      False,
                                      FilterNotify,
                                      @BytesReturned,
                                      nil,
                                      nil) then  raise Exception.Create(SysErrorMessage(GetLastError))
          else
             begin
                  GetMem(FileName,Notify.FileNameLength+2);
		  ZeroMemory(FileName,Notify.FileNameLength+2);
		  lstrcpynW(FileName,Notify.FileName, Notify.FileNameLength div 2+1);
                  case Notify.Action of
                      FILE_ACTION_ADDED: addFileToListing(FileName);
                      FILE_ACTION_REMOVED: deleteFileFromListing(FileName);
                     end;
             end;
end;

Что в этом методе может останавливать работу? методы addFileToListing, deleteFileFromListing - добавление и удаления записи в динамический список? сама функция ReadDirectoryChangesW останавливает? вроде в документации нет такого, да и в примерах об этом не говорилось...

[evg_m]

почему someproc выполняется только один раз, в то время как detectChanges отрабатывает как надо несколько раз.

если закоментить метод detectChanges То работает нормально

Какому из постов верить?

Что в этом методе может останавливать работу?

Сам факт Synchonize ОСТАНАВЛИВАЕТ работу потока ДО окончания работы указанной в его параметрах процедуры. Нет там тормозов хорошо.Выполнилась указанная процедура, И только потом ПОТОК ПОШЕЛ дальше.
Если в потоке только Synchonise то налицо бесполезность оного. ( и даже вредность переключения потоков имеет накладные расходы).

Наглядная иллюстрация
Для потока это два человека, каждый из которых может заниматься своим делам.
Synhronuse это когда второй человек
ПРОСИТ первого человека сделать что конкретное (someproc, detectChanges)
И ЖДЕТ пока тот это сделает.

В твоей программе второй человек только и делает что просит первого сделать то-то и то-то.