Delphi拷贝目录(含子目录)的方法
来源:互联网 发布:怎么做网络歌手 编辑:程序博客网 时间:2024/05/16 07:30
Delphi拷贝目录(含子目录)的方法
要实现目录级的拷贝,可以利用Windows API函数ShFileOperation( ),其函数声明如下:
WINSHELLAPI int WINAPI SHFileOperation(
LPSHFILEOPSTRUCT lpFileOp
);
实例:
新建一个工程,其程序示例如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellApi;
//注意:必须引用ShellApi单元
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender:TObject);
var
OpStruc:TSHFileOpStruct;
frombuf,tobuf:Array[0..128]of Char;
begin
FillChar(frombuf,Sizeof(frombuf),0);
FillChar(tobuf,sizeof(tobuf),0);
//假设将C:/temp1目录下的所有文件复制到C:/temp2目录下
StrPCopy(frombuf,'C:/temp1/*.*'); //(/*.*)可去掉
StrPCopy(tobuf,'C:/temp2');
With OpStruc Do
begin
Wnd:=Handle;
wFunc:=FO_COPY;
pFrom:=@frombuf;
pTo:=@tobuf;
fFlags:=FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:=false;
hNameMappings:=Nil;
lpszProgressTitle:=Nil;
end;
ShFileOperation(OpStruc);
end;
end.
通过本程序,可以将某一子目录及其下面的所有文件(包括下级子目录)拷贝到另一个子目录,如果目标目录不存在,则会自动创建它,从而实际一些自动备份的功能。
- Delphi拷贝目录(含子目录)的方法
- Delphi拷贝目录(含子目录)的方法
- 拷贝整个目录下所有子目录及文件的方法
- java 将源目录的所有文件(含子目录)拷贝到 目标目录中(运用File类实现)
- 一个将源目录下所有文件(含子目录)拷贝到一个新文件夹的小程序
- shell之列举目录下的所有文件(含子目录)
- 轮询目录(含目录中有子目录)并判断文件为0的找出来
- 非递归方法枚举目录下所有文件(含子目录)
- Delphi 拷贝目录
- Delphi 拷贝目录
- shellapi-delphi删除目录及子目录及所有目录下的文件
- SQL里,怎样通过递归得到某个文件目录下的全部文件名[含子目录]?
- 如何列出当前目录下所有的JSP文件(含子目录)
- c# 取得指定目录下的所有子目录名(不含路径)
- php读取目录及子目录下所有文件名的方法
- php读取目录及子目录下所有文件名的方法
- php读取目录及子目录下所有文件名的方法
- php读取目录及子目录下所有文件名的方法
- java字符串编码类型获取
- VS2008中消息的简单实现
- "SQL Server 不存在或访问被拒绝 "
- 简洁的ORM框架Ibatis(转)
- Android NDK 1.6
- Delphi拷贝目录(含子目录)的方法
- 翻倍黑马稳健赚钱 5日均线陡峭上升主力发飙行情开始
- 多字段模糊查询sql like %% 优化与区别
- java HashSet去重示例
- Android NDK
- Xplanner小结(转)
- IE Developer Toolbar - 浏览器模式: IE7, IE8, IE8兼容模式
- Java JNI
- Java中压缩与解压--中文文件名乱码解决办法