Можно ли создать событие при открытии папки?

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner), closeNow(false)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
wchar_t *spyDirName = L"D:\\111";
HANDLE ChangeHandle;
 
ChangeHandle = FindFirstChangeNotification(
                                           spyDirName,
                                           false,
                                           FILE_NOTIFY_CHANGE_LAST_ACCESS
                                           +FILE_NOTIFY_CHANGE_ATTRIBUTES
                                           );
 
// + Проверка на существование папки в принципе
if( ChangeHandle != INVALID_HANDLE_VALUE )
  while( !closeNow )
    {
    Edit1->Text = random( 100 );    // Просто так, чтобы видеть,
    Application->ProcessMessages(); //  что приложение не висит
    if( WaitForSingleObject( ChangeHandle, 500 ) == WAIT_OBJECT_0 )
      {
      // Если дождались изменений, то что-то делаем здесь
      ShowMessage( "CHANGE!!!" );
      }
    FindNextChangeNotification( ChangeHandle );
    }
int err = GetLastError();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
closeNow = true;
}