mostrar ficheros de un directorio

[jsc]

hola,

quisiera saber si existe alguna función o manera de listar en un shelllistview los archivos de un directorio siempre y cuando el nombre coincida con el parametro que se le pase
es decir, una especia de lo que seria el comando DIR en msdos

DIR *fich.*

si tengo un edit1.text y un shelllistview

edit1.text := '*fichero1*';
shelllistview1.Root := ExtractFilePath (Application.ExeName)+'\documentos\';

al pulsar button1 por ejemplo que buscaria dentro de la ruta que hemos especificado y MOSTRARIA en el shelllistview los documentos cuyo nombre coincida con el parametro edit1.text


gracias de antemano
saludos

[ecfisa]

Hola jsc.

Fijate si asi te sirve:

Código Delphi [-]
...
implementation 

var
 GMask: string = '*.*';

// Evento OnAddFolder
procedure TForm1.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
var
  Found : string;
begin
  if GMask <> '*.*' then
  begin
    GMask  := UpperCase(StringReplace(GMask, '*', '', [rfReplaceAll]));
    Found  := UpperCase(ExtractFileName(AFolder.PathName));
    CanAdd := Pos(GMask, Found) <> 0;
  end;
end;

Llamada ejemplo:

Código Delphi [-]
begin
  GMask := '*fich.*';
  ShellListView1.Refresh;
end;

Saludos

[jsc]

gracias ecfisa,

a simple vista es lo que necesito; lo único una cuestión.

hay manera de buscar el fichero en cuestión dentro de las subcarpetas que tuviera el directorio?
al parecer solo buscar dentro de un directorio que se le especifique, pero si este tiene subdirectorios, por lo que he podido observar no muestra los archivos que coincidan con el nombre que se le pase. Esto se podria solucionar ?

gracias otra vez