FileExists() no lee .dll en system32

[to_to]

Gracias por responder. Pues el programa está en delphi y simplemente lo que hice fue actualizar el proyecto. Voy a probar la solución que planteas escafandra.

Les comento en cuanto tenga resultados.

[to_to]

Cargué la función de escafandra pero sigue sin ver a los archivos .dll. Me tendré que pelear con permisos y características de la carpeta.

Gracias por sus comentarios.

[olbeup]

Prueba hacer esto:
Mi PC
Menu --> Herramientas, Lengueta [Ver], Busca y desmarca [] Ocultar las extensiones de archivo para tipos de archivo conocidos

Haber si con esto te funciona.

Un saludo.

[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.