Tips (1541)

Tip Bewertung (28):

uses Filectrl; 

{....}

procedure TForm1.Button1Click(Sender: TObject); 
var 
  Dir: String; 
begin 
  SelectDirectory('Select a directory', '', Dir); 
  ShowMessage(Dir); 
end;