FileExists() no lee .dll en system32

[to_to]

Gracias, tampoco funcionó sigue sin encontrar los archivos .dll en el system32. Sigo buscando permisos o algún bloqueo para esos archivos.

[ecfisa]

Empezado por to_to

Gracias, tampoco funcionó sigue sin encontrar los archivos .dll en el system32. Sigo buscando permisos o algún bloqueo para esos archivos.

Hola to_to.

Sólo a fines de prueba y delimitar el motivo, fijate si de este modo te muestra los archivos .dll en el ListBox:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
  bSize: DWORD;
  Path : string;
begin
  bSize := GetEnvironmentVariable('ComSpec', nil, 0);
  if bSize = 0  then  Exit;
  SetLength(Path,bSize-1);
  GetEnvironmentVariable('ComSpec', PChar(Path), bSize);
  Path := ExtractFilePath(Path);

  ListBox1.Items.BeginUpdate;
  try
    if FindFirst(Path + '*.DLL', $20, sr) = 0 then
      repeat
        ListBox1.Items.Add(sr.Name);
      until FindNext(sr) <> 0;
      FindClose(sr);
  finally
    ListBox1.Items.EndUpdate;
  end;
end;

Aunque dudo que lo haga si no te resultaron las propuestas anteriores ...

Saludos.

Edito: Acabo de encontrar un enlace que tal vez te sirva revisar: FindNextFile fails on 64-bit Windows?

[to_to]

Gracias, lo pruebo y te comento...

[[nlsgarcia]]

to_to,

Empezado por to_to

...la función FileExists...archivo con extensión .dll...regresa (False)...Sólo...en...(Windows\System32)...utilizando Delphi 7 y Windows 7 64 Bits...

Empezado por to_to

...Antes los podía encontrar sin problema...Tuve problemas con el Avast y decidí cambiarlo por Avira...

Empezado por to_to

...El usuario con el que entro es tipo administrador y tiene permiso de acceso total...

Te comento:

1- La función FileExists de Delphi funciona correctamente (Windows\System32) en una Máquina Virtual con Windows 7 Professional x64 y Delphi 7.

2- El código sugerido en los Msg #3 y #8 funciona correctamente (Windows\System32) en una Máquina Virtual con Windows 7 Professional x64 y Delphi 7.

Pregunto:

1- ¿Si deshabilitas el antivirus Avira la función FileExists de Delphi funciona correctamente en Windows\System32?.

2- ¿Después del problema con el antivirus Avast y antes de instalar Avira se presentaba el problema señalado?.

3- ¿El problema solo ocurre después de instalar Avira?.

4- ¿Hay alguna opción en Avira que permita ignorar programas o directorios específicos en su proceso de detección de amenazas?.

Es probable que el problema sea originado en Avira Antivirus por alguna opción de protección del sistema, te sugiero considerar las preguntas anteriores y revisar la configuración del programa en cuestión.

Espero sea útil

Nelson.

[to_to]

Buenas noches, gracias por contestar.

En cuanto al código de prueba para cargar los archivos en el listbox, curiosamente si carga los .dll pero no el archivo que necesito. Estoy por revisar los permisos o propietario del archivo ya que como lo pasaron, es probable que el usuario propietario no tenga permisos sobre la carpeta del system32. Estoy intentando crear ese mismo archivo (con el mismo nombre) con el usuario que corre la aplicación. Antes de crearlo le otorgaré permisos al usuario con el que estoy probando.

Pregunto:

1- ¿Si deshabilitas el antivirus Avira la función FileExists de Delphi funciona correctamente en Windows\System32?.

Fue lo primero que intenté pero siguió sin funcionar. Efectivamente pensé que algo estaba bloqueando o había cambiando permisos de acceso a la carpeta. Lo di de baja y no se resolvió.

2- ¿Después del problema con el antivirus Avast y antes de instalar Avira se presentaba el problema señalado?.

Esto no lo pude validar ya que me empezó a detectar que el programa con el que probaba tenía virus, me enfoqué a quitar los virus, incluyendo la desinstalación de Avast y la instalación del Avira. Lo que si estoy seguro es que antes de los problemas de virus funcionaba perfectamente. Pero cuando me pasaron el archivo "infectado" con el Win32 / Alaman, no pude abrirlo más ya que el Avast me lo enviaba a cuarentena.

3- ¿El problema solo ocurre después de instalar Avira?.

Aparentemente así es, el Avira detectó nuevamente los virus y limpié archivos. Posteriormente con los archivos des-infectados probé y ya no pude ver más el archivo del system32. Revisé permisos en carpeta y archivos y aparentemente no vi algún cambio.

4- ¿Hay alguna opción en Avira que permita ignorar programas o directorios específicos en su proceso de detección de amenazas?.

Tengo el Avira versión libre, he revisado la configuración y no veo ese tipo de bloqueo. De hecho porque al parecer ocurre con un solo tipo de archivo y dentro del system32. Como lo mencioné al principio, en esa misma carpeta si puede localizar y recuperar archivos de otra extensión, y también hice la prueba poniendo el archivo .dll en otra carpeta y si lo lee.

[[nlsgarcia]]

to_to,

Nelson : ¿El problema solo ocurre después de instalar Avira?

to_to : Aparentemente así es...

Pregunto:

1- ¿La función FileExists de Delphi falla con todos los archivos .dll en Windows\System32 o solo uno en específico?.

2- ¿Puedes desinstalar el Antivirus Avira y probar si el problema continua?.

Te comento:

1- En el Msg #1 indicas que utilizas un usuario tipo Administrador por lo cual no parece un problema de permisología, si y solo si realmente es un usuario tipo Administrador con acceso total al sistema.

2- Revisa la máquina en cuestión con otro antivirus, te recomiendo NIS 2013 de Symantec para validar que esta libre de Malware.

3- Revisa estos links:

Virus.Win32.Alman.a : http://www.securelist.com/en/descriptions/old156642

W32.Almanahe.B : http://www.symantec.com/security_res...041501-4936-99

Espero sea útil

Nelson.

[Casimiro Notevi]

Primero debería probar en otro ordenador que no tenga problemas de virus.