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;
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 记一次.NET内存居高不下排查解决与启示
· 探究高空视频全景AR技术的实现原理
· 理解Rust引用及其生命周期标识(上)
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
· 全程不用写代码,我用AI程序员写了一个飞机大战
· MongoDB 8.0这个新功能碉堡了,比商业数据库还牛
· 记一次.NET内存居高不下排查解决与启示
· DeepSeek 开源周回顾「GitHub 热点速览」
· 白话解读 Dapr 1.15:你的「微服务管家」又秀新绝活了