Browse directories (Code Snippet)

uses
   FileCtrl;

 ... 

 procedure TForm1.Button1Click(Sender: TObject);
 var
   Dir: string;
 begin
   Dir := 'D:\Delphi';
   if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
     ShowMessage('Dir selected: ' + Dir)
   else
     ShowMessage('No Dire selected.');
 end;

External links[]

Browse for Folder

Code Snippets
Databases • Files and I/O • Forms/Windows • Graphics • Networking • Math and Algorithms • Miscellaneous • Multimedia • System • VCL