Dialog Pemilihan Folder

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;