FileExists() no lee .dll en system32

[[escafandra]]

No puede probar en Win7 64bits pero he probado en Win7 32bits y la siguiente función funciona Ok.

Código Delphi [-]
function FileExists(const FileName: string): bool;
var
  Handle: THandle;
  FindData: TWin32FindData;
begin
  Handle := FindFirstFile(PChar(FileName), FindData);
  Result := (Handle <> INVALID_HANDLE_VALUE);
  if Result then Windows.FindClose(Handle);
end;

Saludos.

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