Delphi 快速选择文件夹路径

本文整理自网络，侵删。

 uses  ShlObj;
function FindFolder(Handle: THandle; Title: string = '请选择文件夹路径'): string;var  lpItemID: PItemIDList;  BrowseInfo: TBrowseInfo;  DisplayName: array[0..MAX_PATH] of ｃｈａｒ;  TempPath: array[0..MAX_PATH] of ｃｈａｒ;begin  Result := '';  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);  BrowseInfo.hwndOwner := Handle;  BrowseInfo.pszDisplayName := @DisplayName;  BrowseInfo.lpszTitle := PChar(Title);  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;  lpItemID := SHBrowseForFolder(BrowseInfo);  if lpItemId <> nil then//delphitop.com  begin    SHGetPathFromIDList(lpItemID, TempPath);    Result := TempPath;    GlobalFreePtr(lpItemID);  end;end;


procedure TForm2.Button1Click(Sender: TObject);
beginCaption:=FindFolder(Self.Handle);end;
 

相关阅读 >>

Delphi android 安卓系统 关闭打开(显示隐藏)输入法

Delphi 中 unicode 转汉字 函数

Delphi 判断字符串是否为纯字母组合

Delphi firedac 下的 sqlite [9] - 关于排序

Delphi获取控件界面图像“新招”

monthoftheyear：取得一个tdatetime变量的月份在年度中的索引

Delphi xe5下安卓开发技巧

Delphi写com+的心得体会

Delphi tlistview控件里添加背景色

Delphi idhttp最简洁的修改和取得cookie例子

更多相关阅读请进入《Delphi》频道 >>