Buscar archivos con TSearchRec

[[seoane]]

Si queremos realizar la búsqueda sobre todos los discos duros, seria algo así:

Código Delphi [-]
var
  Lista: TStrings;
  Letra: Char;
begin
  Lista := TStringList.Create;
  try
    for Letra:= 'A' to 'Z' do
      if GetDriveType(Pchar(Letra+':\')) = DRIVE_FIXED  then
        BuscarArchivos(Letra+':\', '*.exe', faAnyFile, lista);
    ShowMessage(lista.Text);
  finally
    Lista.Free;
  end;
end;