SelectDirectory example
来源:互联网 发布:linux 大文件查找 编辑:程序博客网 时间:2024/05/21 08:44
SelectDirectory example
This example uses a button and a label on a form. When the user clicks the button, a Select Directory dialog box appears. The current directory displayed in the dialog box is C:/MYDIR. The user can select a directory from the directory list, or enter a new directory in the edit box. If the user enters a new directory, a message box asks the user if the directory should be created. If the user chooses Yes, the directory is created. If the user chooses No, the message box goes away without creating the directory. The name of the directory the user selects appears as the caption of the label:
uses FileCtrl;
const
SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'C:/MYDIR';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;
- SelectDirectory example
- delphi 选择目录对话框(SelectDirectory 函数)
- example
- example
- Example
- example
- Example
- Example
- Example
- Example
- example
- Example
- Example
- BCB6下SelectDirectory窗口居中问题的解决方案
- C++ Builder SelectDirectory 中文目录过长无法选择的问题
- Delphi中调用SelectDirectory弹出的浏览文件夹的对话框为何总是在右下角
- TDD example
- CreateJobObject example
- 开始java学习!
- Flex Builder cannot locate the required debugger version of Flash Player
- 具体网络各层的安全协议
- 哈希码
- 正尝试安装的adobe(R)flash(r)player 版本不是最新版本
- SelectDirectory example
- Swing 编写欢迎界面(引)
- C#操作 RAR
- 2010.03.02
- JavaScript中的正则替换
- JSP环境搭建之JDK的安装与Tomcat配置
- VclZip使用
- 使用mapview导shp数据到oracle spatial
- mysql创建数据库sql实例