Select Directory

Egy könyvtárat választhat ki az user a lenti példa segitségével, szebb, és jobb, mint a DirectoryListBox.

uses Filectrl

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