Función SelectDirectory de Delphi
. Incluye la navegacion por la red.
Erxtraído directamente de la ayuda:
Código Delphi
[-]
uses
FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := '\';
if SelectDirectory('Seleccionar directorio', Dir, Dir) then
Self.Caption := Dir;
end;