Siguiendo con el ejemplo que aparece en el
truco 82, 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;