delphi选择文件夹例子

所需单元
 

<table width="620" align="center" border="0" cellpadding="1" cellspacing="1" style="background:#FB7"> <tr> <td width="464" height="27" bgcolor="#FFE7CE"> 代码如下</td> <td width="109" align="center" bgcolor="#FFE7CE" style="cursor:pointer;" onclick="doCopy('copy4941')">复制代码</td> </tr> <tr> <td height="auto" colspan="2" valign="top" bgcolor="#FFFFFF" style="padding:10px;" class="copyclass" id=copy4941>uses FileCtrl;

示例代码

<table width="620" align="center" border="0" cellpadding="1" cellspacing="1" style="background:#FB7"> <tr> <td width="464" height="27" bgcolor="#FFE7CE"> 代码如下</td> <td width="109" align="center" bgcolor="#FFE7CE" style="cursor:pointer;" onclick="doCopy('copy8044')">复制代码</td> </tr> <tr> <td height="auto" colspan="2" valign="top" bgcolor="#FFFFFF" style="padding:10px;" class="copyclass" id=copy8044>

 
procedure TForm1.btn1Click(Sender: TObject);
var path:String;
begin
       if SelectDirectory('请选择文件夹','',path) then
       ShowMessage(path);
 
end;

您可能感兴趣的文章：
delphi选择文件夹例子
IE11浏览器中添加到收藏夹、查看和整理收藏夹
关于微软的.NET Framework是一个半成品的言论！
选择文件夹的对话框控件c
dos下删除文件夹和文件(包括顽固文件)的方法介绍
Outlook.com邮箱“筛选、整理、移至、即时操作”功能实用教程
VBS脚本运行库手册(3)-文件夹属性
VBS脚本运行库手册(2)-管理文件夹
怎么整理自己的浏览器网页收藏夹
php删除一组文件的例子