Delphi 快速选择文件夹路径

本文整理自网络，侵删。

 
uses  ShlObj;

function FindFolder(Handle: THandle; Title: string = '请选择文件夹路径'): string;
var
  lpItemID: PItemIDList;
  BrowseInfo: TBrowseInfo;
  DisplayName: array[0..MAX_PATH] of char;
  TempPath: array[0..MAX_PATH] of char;
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);

begin
Caption:=FindFolder(Self.Handle);
end;

 

相关阅读 >>

Delphi开发linux包

Delphi正则表达式匹配中文

Delphi 动态调整打印机纸张大小

Delphi 实现dns上线域名解析（用于远控server）

Delphi生成的webservice appdebug的程序，编译时出错

Delphi fmx使用 timage 显示动画图片

Delphi 与 c/c++ 数据类型对照表

Delphi获取网卡mac地址多个方法

Delphi unigui 调用js

Delphi fdmemtable内存表操作

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

转载请注明出处：木庄网络博客 » Delphi 快速选择文件夹路径