Mega Code Archive

 
Categories / Delphi / Files
 

Show the select directory dialog

Title: show the select directory dialog? uses Filectrl; {....} procedure TForm1.Button1Click(Sender: TObject); var Dir: String; begin SelectDirectory('Select a directory', '', Dir); ShowMessage(Dir); end;