请问:在delphi中如何实现目录选择?
解决方案 »
- fastreport3打印时标题上都有FastReport Unregistered version字样,如何去掉,高分(100)求助
- 关于ACTIVEX插件的问题,在线等!!!
- 怎么样将两个byte合并成一个word(分别对应高8位和低8位)?与lo,hi函数的功能相反
- 有使用Delphi的程序员吗?每天都可以在线的!!大家联系一下。
- ★★★★★100高分★★★★★求在TFrame中创建"线程"!!!!!!!!!!!!!
- 在窗体中能不能放置flash之类的动画!如何实现呀?
- 我用spcomm串行通信时候,spcomm提示帧错误,怎么回事啊
- Filter的一个问题
- 自己开发控件用于软件开发的一些经验!(纯属个人意见)希望高手也谈谈,有分~
- Delphi的TQuery之SQL语句问题
- 如何实现文字倾斜?(编译有错误,请高手们指点,急急急!!谢谢朋友们!)
- 主窗体和登陆窗体
begin
SelectDirectory('请选择', '', dir);
ShowMessage(dir);
end;
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;DescriptionCall SelectDirectory to let the user enter a directory name. Use the first syntax to display the Windows directory browser. The Caption parameter specifies a caption for the dialog. The Root parameter specifies the root directory from which to browse. The selected directory is returned as the Directory parameter. Use the second syntax to call the Select Directory dialog box. The directory passed to the function with the Directory parameter appears as the currently selected directory when the dialog box appears. The name of the directory the user selects becomes the value of Directory when the function returns. The dialog does not change the value of the current directory.The HelpCtx parameter is the help context ID number.The Options parameter is a set of values. If Options is the empty set, the user can only select a directory that already exists. No edit box is provided for the user to enter a new directory name. If Options is not empty, the included values determine how the dialog responds when the user types a nonexistent directory name.With either syntax, SelectDirectory returns True if the user selected a directory and chose OK, and False if the user chose Cancel or closed the dialog box without selecting a directory.