Fungsi sederhana untuk menampilkan dialog pemilihan folder di Delphi ada di unit FileCtrl yaitu SelectDirectory,
Formatnya : function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload;
Pemakaiannya seperti berikut :
uses
FileCtrl;
//...
procedure TMainFrm.Button1Click(Sender: TObject);
var
s: string;
begin
if SelectDirectory('Select Directory','',S) then
Label1.Caption:=’Folder yang dipilih adalah : ‘+s;
end;
end;
