🚀 go-pugleaf

On Fri, 26 Mar 2004 11:26:20 -0800, Remy Lebeau (TeamB) wrote:

> 
> "Dave" <dave_xse@-spam-hotmail.com> wrote in message
> news:gtsccansk388.1njug0ildrjsr$.dlg@40tude.net...
> 
>> I'm using FindFirstNotification to watch for changes in
>> Files in a Directory. It get the signal fine when changes
>> occur however i don't know which files have changed.
>> Is there any simple way of knowing it ? = not having to
>> create my own... :-)
> 
> Not with FindFirstChangeNotification(), no.  It only tells you that a chance
> has occured, but not what the change actually is.  If you need that
> information, then you should use SHChangeNotifyRegister() instead.  When a
> change occurs, you are provided with the ITEMIDLIST for the affect file(s).
> An ITEMIDLIST is the OS's internal version of a filename, but much more
> flexible.  If you want to know the filename that changed, you can pass the
> ITEMIDLIST to SHGetPathFromIDList().
> 
> 
> Gambit

I have done it but it just won't work yet...
The event is newer trapped by the Form's message handler
somehow... 
can you have a look at the code? (compiles with NO_WIN32_LEAN_AND_MEAN)

Thanks Guys,
Dave

Here's Unit1.cpp
//-------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//-------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HANDLE hNotify;
HANDLE hShell;
//-------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  LPCITEMIDLIST ItemID;
  BROWSEINFO BrowsingInfo;
  char DirPath[MAX_PATH];
  char FolderName[MAX_PATH];
  memset(&BrowsingInfo, 0, sizeof(BROWSEINFO));
  memset(DirPath, 0, MAX_PATH);

  BrowsingInfo.hwndOwner      = Handle;
  BrowsingInfo.pszDisplayName = FolderName;
  BrowsingInfo.lpszTitle      = "Hello"; //Title.c_str();

  ItemID = SHBrowseForFolder(&BrowsingInfo);

  NOTIFYREGISTER Mine;
  Mine.pidlPath = ItemID;
  Mine.bWatchSubtree = true;
  DWORD cItems = 1;

  hShell = LoadLibrary("SHELL32");
  if (!hShell){
    ShowMessage("Shell loading failed.");
    return;
  }

  SHChangeNotifyRegister = (HANDLE(*)(HWND, DWORD, LONG, UINT, DWORD,
NOTIFYREGISTER)) GetProcAddress(hShell, (char *) 2);
  SHChangeNotifyDeRegister = (bool(*)(HWND)) GetProcAddress(hShell, (char
*) 4);
  if (SHChangeNotifyRegister){
    hNotify = SHChangeNotifyRegister(Form1->Handle, SHCNF_ACCEPT_INTERRUPTS
| SHCNF_ACCEPT_NON_INTERRUPTS, SHCNE_ALLEVENTS, WM_USER, cItems, Mine);
    if (!hNotify) ShowMessage("SHChangeNotifyRegister Failed");
  }
}
//-------------------------------------------------------------------------
void __fastcall TForm1::DirectoryHasChanged(TMessage &Msg)
{
  Edit1->Text = "Some stuff happened";
}
//-------------------------------------------------------------------------

And this is it's header file

#ifndef Unit1H
#define Unit1H
//-------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Dialogs.hpp>
//-------------------------------------------------------------------------
#include "shlobj.h"
#define SHCNF_ACCEPT_INTERRUPTS 0x0001
#define SHCNF_ACCEPT_NON_INTERRUPTS 0x0002
#define SHCNRF_RECURSIVE_INTERRUPT 0x1000
typedef struct {
  LPCITEMIDLIST  pidlPath;
  BOOL           bWatchSubtree;
} NOTIFYREGISTER;

HANDLE (*SHChangeNotifyRegister)(HWND, DWORD, LONG, UINT, DWORD,
NOTIFYREGISTER);
bool   (*SHChangeNotifyDeRegister)(HWND);

//-------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TEdit *Edit1;
//        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
        void __fastcall DirectoryHasChanged(TMessage &Msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_USER, TMessage, DirectoryHasChanged)
END_MESSAGE_MAP(TForm)
};
//-------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//-------------------------------------------------------------------------
#endif