Salve delphianos,

Resolvi postar este pequeno trecho, para que fique registrado uma forma de selecionar diretórios da forma mais independente de componente de terceiros.

A implementação abaixo é simples e foi testada na versão 7 do Delphi.

Passo 01: Adiciona FileCtrl no Uses do formulário.

Passo 02: Código de exemplo para o procedimento.

procedure TForm1.Button1Click(Sender: TObject);
var
  caminho: string;
begin
  caminho := ‘c:’;
  if SelectDirectory(caminho, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
  begin
    Label1.Caption := caminho;
  end;
end;

Considerações finais:

Este exemplo de código, assume algumas premissas. Como:

– O código será executado em um formulário chamado Form1;

– O formulário terá um Button chamado Button1;

– O formulário terá um label cujo nome é Label1;

Boa implementação a todos.