Files Delphi

  1. Home
  2. Delphi
  3. Files
  4. Show the select directory dialog
uses Filectrl;
{....}
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: String;
begin
SelectDirectory('Select a directory', '', Dir);
ShowMessage(Dir);
end;