вывести сообщение при открытии папки

[hunter03]

Помогите с решением: есть папка, при ее открытии моя прога должна перехватить это событие и вывести гапример сообщение, как это сделать? знаю что нужно это как то через хуки, но понятия не имею как это записать и какие функции использовать, в гугле пишут используй хуки...и все. Кто знает или сталкивался прошу помочь

[waleri]

Что значит в вашем понимании "открыть папку"?

[hunter03]

в explorer 2 раза щелкаю по папке. Нашел, что нужно юзать FindFirstChangeNotification, но как конкретно ею пользоваться- незнаю(((

[hunter03]

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

[eval]

А если в тотал командере отрыть, или напимер через опен диалог?

[hunter03]

а какая разница? впринципе для меня это не критично, задание учебное, мне нужно что бы программа вывела месседж при открытии определенной папки. просмотрел море инфы - все писали мол нужно юзать CreateFIle, FindFirstChangeNotification но они подходят если я в этой папке что то создаю или удаляю, тип для ведения лога, а для моего случая - не подходит. Нашел один исходник, попытался подстроить под свою задачу, используя эти функции, но ничего не получилось толком((((

[hunter03]

я пробовал переписать процедурку execute, вот что получилось

procedure TMonDirThread.Execute;
  var 
  HandleChange: THandle;  //Handle создаваемого объекта для ожидания события
begin
//-- Создаем объект для ожидания события
  HandleChange :=     CreateFile('c:\tst', GENERIC_READ,
    FILE_SHARE_READ or FILE_SHARE_DELETE or FILE_SHARE_WRITE,
    nil,
    OPEN_EXISTING,
    FILE_FLAG_BACKUP_SEMANTICS or
    FILE_FLAG_OVERLAPPED, 0);

//-- При ошибке 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;
     // FindNextFile(HandleChange);
    end;
  finally
    FindCloseChangeNotification(HandleChange);
  end;
  Synchronize(ThreadStop);                     //Сообщаем о завершении потока
end;

но результат - в лог постоянно записывается, что папка открыта. т.е. она открывается программно, и в лог записывается что она открылась. но никак не могу придумать как это сделать, когда я сам открываю папку...

[hunter03]

реализовал то, что хотел, тема закрыта)

[waleri]

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

реализовал то, что хотел, тема закрыта)

Так скажите как, может и другим пригодится...