type

  TMonDirThread = class(TThread)
  private
    FPath: string;
    procedure ThreadStop;
    procedure UpdateLog;
    procedure ThreadStart;


  public
    constructor Create(aPath: String);
  protected
    procedure Execute; override;
  end;


implementation

uses
  ShellAPI, inifiles, ShlObj, Registry, comobj, ActiveX;

{$R *.dfm}


constructor TMonDirThread.Create(aPath: String);
begin
inherited Create(True);    // Поток создаем в состоянии «Приостановлен» 
  FreeOnTerminate := True;  // Поток освободит ресурсы при окончании работы 
  FPath := aPath;           // Проверяемый каталог 
  Self.Priority := tpHighest; // Стартуем с высоким приоритетом
  Resume;                    // Переводим поток в состояние «Активен»
end;

procedure TMonDirThread.Execute;
var
  HandleChange: THandle;  // Handle создаваемого объекта для ожидания события 
begin 
// -- Создаем объект для ожидания события 
  HandleChange := 
    FindFirstChangeNotification( 
      PChar(FPath),                           // Проверяемый каталог 
      False,                                  // Подкаталоги не проверяются 
      FILE_NOTIFY_CHANGE_FILE_NAME +          // Проверка создания/удаления/ 
      FILE_NOTIFY_CHANGE_ATTRIBUTES);         // переименования/изменения файлов

// -- При ошибке Win32Check выводит сообщение и прерывает Execute. 
    Win32Check(HandleChange <> INVALID_HANDLE_VALUE); 
      Synchronize(ThreadStart);               // Сообщение о старте потока 
  try 
// -- Цикл, пока для потока не будет выдана команда Terminate 
    while not Terminated do 
    begin 
      case WaitForSingleObject(HandleChange,1000) of 
        WAIT_FAILED: Terminate;                // Ошибка, завершаем поток 
        WAIT_OBJECT_0: Synchronize(UpdateLog); // Сообщаем об изменении

      end; 
      FindNextChangeNotification(HandleChange); 
    end; 
  finally 
    FindCloseChangeNotification(HandleChange); 
  end; 
  Synchronize(ThreadStop);                     // Сообщаем о завершении потока
end;


procedure TMonDirThread.ThreadStart;
begin
  fmMain.sbMain.Panels[1].Text := 'Активен';
end;

procedure TMonDirThread.ThreadStop;
begin
  fmMain.sbMain.Panels[1].Text := 'Отключен';
  fmMain.mmStart.Enabled := True; // Отключаем кнопку mmStart
  fmMain.mmStop.Enabled := False; // Включаем кнопку mmStop
end;



procedure TMonDirThread.UpdateLog;
Var
 f, s: string;
begin
  f := IncludeTrailingPathDelimiter(fmMain.Edit1.text) + 'print.txt';
  s := IncludeTrailingPathDelimiter(fmMain.Edit1.text) + 'print.bat';

  if FileExists(f) then
  begin

    ShellExecute(Application.Handle, 'open', PAnsichar('print.bat'), PAnsichar('print.txt'), PAnsichar(QuotedStr(fmMain.Edit1.Text)), SW_HIDE);

    sleep(2000);
    Application.ProcessMessages;
    DeleteFile(f);
    fmMain.sbMain.Panels[0].Text := DateTimeToStr(now);
  end;

end;