Saber cuando se crea un archivo nuevo en un directorio

[CHRISTIANHAZ77]

Hola, queria consultar si alguien sabe, o se puede detectar, si se produce la creacion de un archivo nuevo dentro de un directorio x. Necesito saber esto ya que mi aplicacion debe tomar informacion de otro soft luego que este la crea.
Gracias

[[escafandra]]

Puedes convertir a tu aplicación en una extensión del Shell, para elle debes ser capaz de recibir el mensaje WM_SETTINGCHANGE que se envía al Shell y sus extensiones al producirse cambios. Esas notificaciones se envían mediante la API
SHChangeNotify. En tu caso debes controlar el valor SHCNE_CREATE:

typedef ULONG(WINAPI *PSHChangeNotifyRegister)(HWND hwnd, int fSources, LONG fEvents, UINT wMsg,
                                     int cEntries, const SHChangeNotifyEntry *pshcne);

typedef BOOL (WINAPI *PSHChangeNotifyDeregister)(ULONG ulID);

// Convertir el formulario en receptor del mensaje WM_SETTINGCHANGE
void __fastcall TForm1::StartNotification()
{
    PSHChangeNotifyRegister SHChangeNotifyRegister =
           (PSHChangeNotifyRegister)GetProcAddress(GetModuleHandle("shell32.dll"), "SHChangeNotifyRegister");

    SHChangeNotifyEntry shCNE;
    shCNE.pidl = 0;
    shCNE.fRecursive = TRUE;

    // Eventos que se van a registrar
    LONG Events =  SHCNE_CREATE |SHCNE_DELETE;

    m_ulSHChangeNotifyRegister = SHChangeNotifyRegister(Handle, SHCNRF_INTERRUPT_LEVEL | SHCNRF_SHELL_LEVEL, Events, WM_USER_SHELLCHANGED, 1, &shCNE);
}


//-------------------------------------------------------------------------
// Responder al mensaje
void __fastcall TForm1::WndProc(Messages::TMessage &Message)
{
   if(Message.Msg == WM_USER_SHELLCHANGED){
     switch(Message.LParam & 0x7FFFFFF)
     {
       case SHCNE_CREATE:
         // tu código dr creación de fichero
         break;
       case SHCNE_DELETE:
         // tu código de destrucción de fichero
         break;
     }
   }
   TForm::WndProc(Message);
}

// Destructor del Form Eliminarnos como extensión del Shell:
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    PSHChangeNotifyDeregister SHChangeNotifyDeregister =
      (PSHChangeNotifyDeregister)GetProcAddress(GetModuleHandle("shell32.dll"), "SHChangeNotifyDeregister");

    if(m_ulSHChangeNotifyRegister)
      SHChangeNotifyDeregister(m_ulSHChangeNotifyRegister);

}

Saludos.

[CHRISTIANHAZ77]

Agradezco mucho tu tiempo, almenos se que se puede, no entiendo a simple vista ese codigo pero le voy a dedicar tiempo para tratar de descifrarlo, para que el TFORM pueda recibir o captar esos cambios en donde debe ir el codigo?

[[escafandra]]

En primer lugar decirte que el ejemplo está escrito en C++ Builder, pero es fácilmente trasladable a delphi si es el lenguaje que usas. En segundo lugar, para que tu código sea sensible a WM_SETTINGCHANGE, es decir que reciba ese mensaje junto con el Shell, debes ejecutar el código de la función StartNotification que como ves la he escrito como miembro de Form1. Cuando quieras dejar de de recibir el mensaje WM_SETTINGCHANGE debes ejecutar FormDestroy esto lo puedes hacer cuando quieras dejar de recibir el mensaje o al destruir el form1.

El Resto es la rutina de tratamiento del mensaje, que tendrás que diseñar tu.

Saludos.

[Neftali [Germán.Estévez]]

También puede utilizar algun componente que encapsula estecomportamiento y que te será más sencillo de utilizar. Las RxLib, por ejemplo, traen uno llamado RxFolderMonitor, aunque seguro que en Torry puedes encontrar alguno más...

[Faust]

Precisamente es algo que estaba a punto de preguntar, pero no me atrevía, pues no había buscado en el foro...

He descargado algunos componentes de torry y creo de delphi about, pero no me satisfacen, pues notifican p. ej. cuando se crea un archivo haciendo clic derecho en el explorador de windows clic en el submenu nuevo y archivo de texto, pero cuando algunos programas crean el archivo, p. ej. al darle guardar como, no lo notifica ...

¿cuál sería un método efectivo para realizar esta tarea?

[CHRISTIANHAZ77]

Agradezco a todos por la ayuda, es dificil iniciar preguntando algo, pero la verdad solucione lo que necesitaba, son casi los primeros pasos que doy en programacion, pero en un futuro no muy lejano seguro estare de su lado tambien colaborando. gracias