Delphi 显示选择文件夹对话框 (有新建按钮)
来源:互联网 发布:php设计模式 编辑:程序博客网 时间:2024/06/05 09:29
Delphi 显示选择文件夹对话框 (有新建按钮) 附实例
uses ShlObj
选择文件夹对话框。
入口参数:
Handle:调用者句柄
Caption:对话框标题
InitFolder:初始文件夹;
SelectedFolder:返回选择结果
返回值:
如果用户选择了路径并确定,返回True。并由SelectedFolder返回选择结果。否则返回False}
截图:
function SelectFolderDialog(const Handle:integer;const Caption:string; const InitFolder:string;var SelectedFolder:string):boolean;varBInfo: _browseinfoA;Buffer: array[0..MAX_PATH] of Char;ID: IShellFolder;Eaten, Attribute: Cardinal;ItemID: PItemidlist;beginwith BInfo dobegin HwndOwner := Handle; lpfn := nil; lpszTitle := Pchar(Caption); ulFlags := BIF_RETURNONLYFSDIRS+BIF_NEWDIALOGSTYLE; SHGetDesktopFolder(ID); ID.ParseDisplayName(0,nil,'\',Eaten,ItemID,Attribute); pidlRoot := ItemID; GetMem(pszDisplayName, MAX_PATH);end;FreeMem(pszDisplayName);if SHGetPathFromIDList(SHBrowseForFolder(BInfo), Buffer) thenbegin SelectedFolder := Buffer; if Length(SelectedFolder)<>3 then SelectedFolder := SelectedFolder; result := True;endelse begin SelectedFolder := ''; result := False;end;end;//=====================================================调用方法:procedure TForm1.Button1Click(Sender: TObject);varNewDir:string;beginif SelectFolderDialog(Handle,'选择','C:\',NewDir) then label1.Caption:=NewDir;end;
- Delphi 显示选择文件夹对话框 (有新建按钮)
- Delphi 显示选择文件夹对话框 (有新建按钮)
- Delphi 选择文件夹对话框 (有新建文件夹按钮)修正版
- vc创建带新建文件夹按钮的保存对话框
- 显示“选择文件夹”对话框,让用户选择文件夹
- 利用SHBrowseForFolder 产生 路径/文件夹 选择对话框 显示 创建文件夹
- 在“BROWSEINFO”产生的“浏览文件夹”对话框中加入“新建文件夹”按钮
- 在“BROWSEINFO”产生的“浏览文件夹”对话框中加入“新建文件夹”按钮
- 在“BROWSEINFO”产生的“浏览文件夹”对话框中加入“新建文件夹”按钮
- 选择文件夹的对话框
- 选择文件夹对话框代码
- 选择文件夹对话框代码
- "浏览文件夹"选择对话框
- 弹出"选择文件夹"对话框
- 选择文件夹对话框
- 选择文件夹的对话框
- vc文件夹选择对话框
- 打开文件夹选择对话框
- 变化检测算法
- 关闭应用
- Channel Model in 36.104
- WPF TreeView 的数据绑定(分层)
- word & visio
- Delphi 显示选择文件夹对话框 (有新建按钮)
- virtual base class
- linux内核代码数量增长情况
- 操作系统大型实验进展(5)-----C/C++语言中time_t数据类型详细介绍
- 手机音视频流媒体开发一些有用资料
- linux中fork同时创建多个子进程的方法(一)
- [STL基础]栈、队列、优先队列之用法
- test
- session超时时间设置方法