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获取13位格林治时间实现方法

Delphi edit1.gettextlen 获取编辑框字符数

Delphi10.3 创建一条json数据

Delphi 获取其它软件的tlistbox句柄，怎么取得listbox中的数据

Delphi判断线程是否正在运行

Delphi 多重循环

Delphi隐藏指定程序的托盘图标

Delphi 利用Delphi监视注册表的变化

Delphi中messagebox的用法

Delphi 按f11程序全屏

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

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