文档章节

Delphi 目录操作

vga
 vga
发布于 2014/05/25 10:33
字数 236
阅读 296
收藏 2
删除目录:
function DelDirectory(const Source:string): boolean;
 var
   fo: TSHFILEOPSTRUCT;
 begin
   FillChar(fo, SizeOf(fo), 0);
   with fo do
   begin
     Wnd := 0;
     wFunc := FO_DELETE;
     pFrom := PChar(source+#0);
     pTo := #0#0;
     fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
   end;
   Result := (SHFileOperation(fo) = 0);
 end;
 复制目录:
 function CopyDirectory(const Source, Dest: string): boolean;
 var
   fo: TSHFILEOPSTRUCT;
 begin
   FillChar(fo, SizeOf(fo), 0);
   with fo do
   begin
     Wnd := 0;
     wFunc := FO_COPY;
     pFrom := PChar(source+ #0 );
     pTo := PChar(Dest+ #0 );
     fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR    ;
   end;
   Result := (SHFileOperation(fo) = 0);
 end;
重新命名:
 //RenDirectory('d:\wt2','d:\bcde');
 function RenDirectory(const OldName,NewName:string): boolean;
 var
   fo: TSHFILEOPSTRUCT;
 begin
   FillChar(fo, SizeOf(fo), 0);
   with fo do
   begin
     Wnd := 0;
     wFunc := FO_RENAME;
     pFrom := PChar(OldName+ #0 );
     pTo := pchar(NewName+ #0 );
     fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
   end;
   Result := (SHFileOperation(fo) = 0);
 end;
 //Copy 多个文件的处理:
 function CopyFiles(const Source,Dest: string): boolean;
 var
   fo: TSHFILEOPSTRUCT;
 begin
   FillChar(fo, SizeOf(fo), 0);
   with fo do
   begin
     Wnd := 0;
     wFunc := FO_COPY;
     pFrom := @source[1];
     pTo :=pchar(dest);
     fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR    ;
   end;
   Result := (SHFileOperation(fo) = 0);
 end;
procedure TForm1.Button1Click(Sender: TObject);
 var
   str:string;
   i:integer;
 begin
   if opendialog1.Execute then
   begin
     for i:=0 to OpenDialog1.Files.Count-1 do
      str:=str+OpenDialog1.Files.strings[i]+ #0 ;
     showmessage(str);
     str:=str+ #0 ;
     CopyFiles(str, 'd:\temp' );
   end;
 end;

© 著作权归作者所有

vga

vga

粉丝 23
博文 366
码字总数 26645
作品 0
佳木斯
私信 提问
解决EditorLineEnds.ttr被锁定导致Delphi2006-2010无法启动的问题

在Windows7环境下,安装Turbo Delphi(D2006)后发现,IDE第二次启动时会出现错误提示: “Cannot create file C:UsersAdminAppDataLocalTempEditorLineEnds.ttr” 然后退出,启动失败。 搜索...

uian2000
2015/08/22
5.4K
0
不在乎y/govcl

govcl 目录 项目介绍 重要说明 WIKI 使用方法 icon及manifest文件集成 关于跨平台问题 项目中的包说明 实例类说明 支持的组件列表 截图 备注 作者信息 项目介绍 1、由于现有第三方的Go UI库不...

不在乎y
2017/10/10
0
0
不在乎y/Duilib for Delphi

###DDuilib 目录 项目介绍 其它说明 初次使用 自行编译 目录详情 Demo截图 作者信息 项目介绍 什么是DDuilib(原名“Duilib for Delphi”)? DDuilib是一个建立在C++开源项目duilib之上,且最...

不在乎y
2015/12/26
0
0
SQLite for Delphi的网友评论

SQLite的一个Delphi的开源封装库,全面支持Delphi 4, 5, 6, 7, 2005 和 2006。对于Delphi 4和Delphi 5请使用带有D4、D5后缀的文件。解压缩下载回来的文件包到Delphi的子目录下,安装该组件,...

红薯
2009/12/11
1K
2
SQLite for Delphi

SQLite的一个Delphi的开源封装库,全面支持Delphi 4, 5, 6, 7, 2005 和 2006。对于Delphi 4和Delphi 5请使用带有D4、D5后缀的文件。解压缩下载回来的文件包到Delphi的子目录下,安装该组件,...

匿名
2008/10/06
12.5K
1

没有更多内容

加载失败,请刷新页面

加载更多

SpringBoot中 集成 redisTemplate 对 Redis 的操作(二)

SpringBoot中 集成 redisTemplate 对 Redis 的操作(二) List 类型的操作 1、 向列表左侧添加数据 Long leftPush = redisTemplate.opsForList().leftPush("name", name); 2、 向列表右......

TcWong
今天
4
0
排序––快速排序(二)

根据排序––快速排序(一)的描述,现准备写一个快速排序的主体框架: 1、首先需要设置一个枢轴元素即setPivot(int i); 2、然后需要与枢轴元素进行比较即int comparePivot(int j); 3、最后...

FAT_mt
昨天
4
0
mysql概览

学习知识,首先要有一个总体的认识。以下为mysql概览 1-架构图 2-Detail csdn |简书 | 头条 | SegmentFault 思否 | 掘金 | 开源中国 |

程序员深夜写bug
昨天
10
0
golang微服务框架go-micro 入门笔记2.2 micro工具之微应用利器micro web

micro web micro 功能非常强大,本文将详细阐述micro web 命令行的功能 阅读本文前你可能需要进行如下知识储备 golang分布式微服务框架go-micro 入门笔记1:搭建go-micro环境, golang微服务框架...

非正式解决方案
昨天
8
0
前端——使用base64编码在页面嵌入图片

因为页面中插入一个图片都要写明图片的路径——相对路径或者绝对路径。而除了具体的网站图片的图片地址,如果是在自己电脑文件夹里的图片,当我们的HTML文件在别人电脑上打开的时候图片则由于...

被毒打的程序猿
昨天
9
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部