Selecionar Pasta - Delphi

Eis uma função para exibir uma caixa de diálogo para selecionar uma pasta em Delphi.
Primeiramente adicione a uses FileCtrl.


procedure TForm1.Button1Click(Sender: TObject);
var
  selDir : string;
begin
  SelectDirectory('Selecione uma pasta', 'C:\', selDir);
end;

Explicando....


Declaramos selDir como string, pois ela armazenará o caminho que o usuário escolher.
SelectDiretory é a função para exibir a caixa de diálogo de seleção de pasta.
O primeiro argumento é a mensagem que será exibida para o usuário.
O segundo argumento é o diretório inicial da caixa de seleção.
E o terceiro, no caso, é onde será armazenado o local que o usuário escolheu.

Manipulando a variável selDir.


procedure TForm1.Button1Click(Sender: TObject);
var
  selDir : string;
begin
  if SelectDirectory('Selecione uma pasta', 'C:\', selDir) then
     ShowMessage('Você escolheu a pasta ' + selDir);
end;

Abraço e até a próxima! (: