delphi 选择目录

复制代码
function selectdir: string; //如果取消取返回为空,否则返回选中的路径
var
  Info: TBrowseInfo;
  IDList: pItemIDList;
  Buffer: PChar;
begin
  result := '';
  Buffer := StrAlloc(MAX_PATH);
  with Info do
  begin
    hwndOwner := GetActiveWindow;   //少了这句,浏览目录选择框不会跳出来的
    pidlRoot := nil; //起始位置,缺省为我的电脑
    pszDisplayName := Buffer; //用于存放选择目录的指针
    lpszTitle := '请选择路径:'; //对话框提示信息
    ulFlags := BIF_RETURNONLYFSDIRS or BIF_BROWSEINCLUDEFILES;
     //选择参数,此处表示显示目录和文件,如果只显示目录则将后一个去掉即可
    lpfn := nil; //指定回调函数指针
    lParam := 0; //传递给回调函数参数
    IDList := SHBrowseForFolder(Info); //读取目录信息
  end;
  if IDList <> nil then
  begin
    SHGetPathFromIDList(IDList, Buffer); //将目录信息转化为路径字符串
    result := strpas(Buffer);
  end;
  StrDispose(buffer);
end;
复制代码

 

posted @   yclizq  阅读(714)  评论(0编辑  收藏  举报
编辑推荐:
· 记一次.NET内存居高不下排查解决与启示
· 探究高空视频全景AR技术的实现原理
· 理解Rust引用及其生命周期标识(上)
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
阅读排行:
· 全程不用写代码,我用AI程序员写了一个飞机大战
· MongoDB 8.0这个新功能碉堡了,比商业数据库还牛
· 记一次.NET内存居高不下排查解决与启示
· DeepSeek 开源周回顾「GitHub 热点速览」
· 白话解读 Dapr 1.15:你的「微服务管家」又秀新绝活了
点击右上角即可分享
微信分享提示