查找目录，得到目录路径

procedure TForm22.selectDirClick(Sender: TObject);
var
  dir: String;
begin
  SelectDirectory('Select Search Directory','',dir);  {得到目录路径+目录名}
  if dir <> '' then
  begin
    cbSearchDir.Text := IncludeTrailingPathDelimiter(dir);       //如果Dir最后一个字符不是'\'，加上一个'\'表示路径
  end;
end;