26 replies to this topic

[luk2009]

 

Comienza el Monitor

Archivo nuevo: C:\Users\compualarma\AppData\Roaming\Microsoft\Windows\Recent\esca.lnk

Archivo borrado: C:\Users\compualarma\Desktop\esca.txt

Archivo nuevo: C:\Users\compualarma\Desktop\esca.txt

C:\Users\compualarma\Desktop\esca.txt

Archivo borrado: C:\Users\compualarma\Desktop\esca.txt

Archivo nuevo: C:\Users\compualarma\Desktop\esca.txt

C:\Users\compualarma\Desktop\esca.txt

[escafandra]

Vale, el Monitor funciona como se esperaba. El notepad ha escrito el archivo y el monitor lo ha detectado bien. Pienso que es un problema de usuario. El Shell no es informado cuando un programa "ejecutado como" otro usuario realiza cambios el el sistema de archivos. Esto lo puedes comprobar arrancando una copia de explorer.exe ejecutado como otro usuario. Puedes experimentar abriendo una consola y en ella ejecutas lo siguiente:

php

runas /user:otro_usuario "explorer.exe /separate"

La nueva shell abierta es del otro_usuario. Si en ella borras un archivo, te darás cuenta que no recibe la notificación y el archivo, aunque borrado, sigue apareciendo hasta que pulsas F5 y se actualiza.

 

Investiga como se está ejecutando ese programa de llamadas telefónicas, si tiene un servicio, etc...

 

 

Saludos.

[luk2009]

He verificado que estan abiertas con el mismo usuario. No veo ningun servicio que corresponda a este programa y aun asi no detecta nada.

luego lo probare con otra computadora para verificar. Mientras será poner un timer que revise el directorio correspondiente y compararlo con el ultimo archivo grabado. 

[escafandra]

He estado preparando un prototipo con la API ReadDirectoryChangesW en un Thread. El prototipo detecta los cambios ocurridos en una carpeta aunque se ejecute desde otro usuario y es independiente de las notificaciones del Shell.
 
Este el el código:

delphi

procedure TDirMonitor.ScanNotification2(Dir: WideString);
var
  hDir: THANDLE;
  Filter: DWORD;
  BytesReturned: DWORD;
begin
  ZeroMemory(@OVL, sizeof(OVERLAPPED));
  hDir:= CreateFileW(PWCHAR(Dir), FILE_LIST_DIRECTORY,
                     FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,
                     nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS or FILE_FLAG_OVERLAPPED, 0);
 
  Filter:= FILE_NOTIFY_CHANGE_FILE_NAME or
           FILE_NOTIFY_CHANGE_DIR_NAME or
           FILE_NOTIFY_CHANGE_ATTRIBUTES or
           FILE_NOTIFY_CHANGE_SIZE or
           FILE_NOTIFY_CHANGE_LAST_WRITE or
           FILE_NOTIFY_CHANGE_CREATION or
           FILE_ACTION_ADDED or
           FILE_ACTION_REMOVED or
           FILE_ACTION_MODIFIED;
 
  SizeFI:= 1024;
  FI:= AllocMem(SizeFI);
  OVL.hEvent:= CReateEvent(nil, true, false, nil);
  BytesReturned:= 0;
 
  while not Terminated and ReadDirectoryChangesW(hDir, FI, SizeFI, false, Filter, @BytesReturned, @OVL, nil) do
  begin
    GetOverlappedResult(hDir, OVL, BytesReturned, TRUE);
    ResetEvent(OVL.hEvent);
    if BytesReturned > 0 then
      Synchronize(SetNotify);
  end;
 
  FreeMem(FI);
  FI:= nil;
  CloseHandle(hDir);
  CloseHandle(OVL.hEvent);
end;

Te subo un adunto para pruebas.
 
 
Saludos.

Attached Files

•  Th ReadDirectoryChanges 2.rar   165.13KB   20 downloads

[luk2009]

Si le Pongo la Ruta completa del directorio funciona perfecto: 

esta es la ruta que puse: C:\U2_V3.11\usb-record\2015\09\21

 

 

File added:  2015-09-21_10-24-33_000.mp3

File modified:  2015-09-21_10-24-33_000.mp3

File renamed, old name:  2015-09-21_10-24-33_000.mp3

File renamed, new name:  2015-09-21_10-24-33_000_8095320327.mp3

File modified:  2015-09-21_10-24-33_000_8095320327.mp3

 

 

si pongo la ruta sin el dia:

C:\U2_V3.11\usb-record\2015\09

me sale lo siguiente:

 

File modified:  21

File modified:  21

File modified:  21

 

si le pongo solo la ruta con solo el año no detecta nada.

[escafandra]

Eso es debido a que el código está configurado para no explorar subdirectorios, pero con un simple true se cambia en 10 segundos:

delphi

ReadDirectoryChangesW(hDir, FI, SizeFI, TRUE, Filter, @BytesReturned, @OVL, nil)

El programita que he publicado no está muy pulido, lo escribí muy rápido ayer después de comprobar el manejo de la API ReadDirectoryChangesW. Es muy completa y con múltiples formas de uso.

Parece que la API ReadDirectoryChangesW da respuesta a tu necesidad.


Saludos.

[luk2009]

Gracias Esca por toda tu ayuda, eres invaluable.  

 

voy a realizar el cambio y te estare informando del avance.

 

gracias de nuevo por todo tu esfuerzo.