Ver Mensaje Individual
  #2  
Antiguo 11-08-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
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;
Responder Con Cita