Dialog p/ capturar diretorio

{Dialog para capturar diretório
 Chame DialogDir}
unit objDialogDir;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, Buttons;

type
  TfrmDialogDir = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    btnOK: TBitBtn;
    btnCancela: TBitBtn;
    DriveComboBox: TDriveComboBox;
    DirectoryListBox: TDirectoryListBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function DialogDir(Title : string = ´Escolha o diretório´;InitialDir : string = ´c:´):string;

var
  frmDialogDir: TfrmDialogDir;

implementation

{$R *.DFM}

function DialogDir(Title : string = ´Escolha o diretório´;InitialDir : string = ´c:´):string;
begin
  Result := ´´;
  with TfrmDialogDir.Create(nil) do
  try
    DirectoryListBox.Directory := InitialDir;
    Caption := Title;
    ShowModal;
    if ModalResult = mrOk then
      Result := DirectoryListBox.Directory;
  finally
    Free;
  end;
end;

end.