Function SelectDirectory

 Uses Unit FileCtrl

A função SelectDirectory exibe uma caixa de diálogo que permite que o usuário se posicione num determinado diretório nas unidades de drives locais ou em alguma pasta na rede. Em seguida, a função retorna ao diretório em que o usuário se posicionou.

Sintaxe da sua utilização:

SelectDirectory('Váriavel_que_receberá_o_diretório_posicionado',[Opções],Help_context);

Ex:

procedure TForm1.Button14Click(Sender: TObject);var Dir: string;begin
       Dir := 'C:\Teste';       if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
             Label1.Caption := Dir;end;