Obtener el Contenido de una unidad (cd o hd), es posible?

[roman]

Código Delphi [-]
procedure DirList(Path: String; List: TStrings);
var
  SearchRec: TSearchRec;

begin
  Path := IncludeTrailingPathDelimiter(Path);

  if FindFirst(Path + '*.*', faAnyFile, SearchRec) = 0 then
  begin
    List.BeginUpdate;

    repeat
      if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
      begin
        if (SearchRec.Attr and faDirectory = faDirectory) then
        begin
          List.Add(Path + SearchRec.Name + '\');
          DirList(Path + SearchRec.Name, List);
        end
        else
          List.Add(Path + SearchRec.Name);
      end;
    until FindNext(SearchRec) <> 0;

    List.EndUpdate;
  end;

  FindClose(SearchRec);
end;

Código Delphi [-]
// Uso
DirList('C:\Mis documentos', ListBox1.Items);

No es la forma óptima y si lo ejecutas contra 'C:\' prepárate a esperar un buen rato.

// Saludos

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

Otra opción es que el componente ShellTreeView te haga el trabajo. En la carpeta \Demos\ShellControls\ está éste componente que se instala en la paleta de Samples en Delphi.

Puedes colocar un componente de éstos en un form.
(1) Configuras la propiedad Root con C:\
(2) Ejecutas: ShellTreeView1.FullExpand; para expandir todos los niveles.
(3) Y cuando acabe guardarlo en un fichero con:
ShellTreeView1.SaveToFile('c:\temp\aa.txt');

Una vez en el fichero puedes hacer lo que quieras con él.

[Essato]

Hola, gracias por sus respuestas, probare ambos métodos y ya les dire.