Delphi选择指定路径作为操作路径

Uses VCL.FileCtrl
if SelectDirectory(‘选择文件提取路径’, ‘d:’, Str) then
begin
Memo1.Lines.Add(‘已选定[’ + Str + ‘]为检索目录’);
Edit1.Text := Str;
end
else
begin
Exit;
end;