Searchpath

[ukitake]

Hola, he estado buscando informacion pero no he encontrado nada.
mi problema es que no sé cómo buscar un determinado archivo en el disco duro. Por ejemplo, si pulso un boton(que pone explorer) quiero que en un edit me salga el path del explorer (c:\archivos de programas... etc...).

He visto una función por ahí, llamada searchpath, pero no logro utilizarla correctamente, y tampoco sé si esa es la correcta. Si alguien pudiera ayudarme. Por cierto, utilizo delphi 7. gracias.

[Neftali [Germán.Estévez]]

Empezado por ukitake

...mi problema es que no sé cómo buscar un determinado archivo en el disco duro.

En la sección de trucos del Club está el 82, que justo indica cómo buscar archivos.

[[seoane]]

La función SearchPath busca el archivo especificado en varios directorios. Si no le pasamos una lista de directorios donde buscar, busca en los siguientes directorios, por este mismo orden:

El directorio donde esta la aplicacion.
El directorio actual.
El directorio System.
El directorio Windows.
Los directorios incluidos en la variable de entorno Path.

Un ejemplo de como usarla es el siguiente:

Código Delphi [-]
function Buscar(Nombre: string): string;
var
  Buffer: array[0..MAX_PATH] of Char;
  P: PChar;
begin
  FillChar(Buffer,Sizeof(Buffer),0);
  if SearchPath(nil,PChar(Nombre),nil,Sizeof(Buffer)-1,@Buffer,P) <> 0 then
    Result:= String(PChar(@Buffer))
  else
    Result:= '';
end;

// Ejemplo
ShowMessage(Buscar('explorer.exe'));