Cita:
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?