Call Browse for Folder dialog

Posted in System

Following procedure can call the Browse for Folder dialog.

uses FileCtrl;
...

procedure TMainfrm.Button1Click(Sender: TObject);
var
  St: string;
begin
  St:='c:\';
  if SelectDirectory(St,[],0) then Label1.Caption:=St;
end;