Delphi 目录操作

Stella981
• 阅读 318
删除目录:
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;
点赞
收藏
评论区
推荐文章
刚刚好 刚刚好
2个月前
css问题
1、 在IOS中图片不显示(给图片加了圆角或者img没有父级) <div<img src""/</div div {width: 20px; height: 20px; borderradius: 20px; overflow: h
blmius blmius
1年前
MySQL:[Err] 1292 - Incorrect datetime value: ‘0000-00-00 00:00:00‘ for column ‘CREATE_TIME‘ at row 1
文章目录 问题 用navicat导入数据时,报错: 原因这是因为当前的MySQL不支持datetime为0的情况。 解决修改sql\mode: sql\mode:SQL Mode定义了MySQL应支持的SQL语法、数据校验等,这样可以更容易地在不同的环境中使用MySQL。 全局s
晴空闲云 晴空闲云
2个月前
css中box-sizing解放盒子实际宽高计算
我们知道传统的盒子模型,如果增加内边距padding和边框border,那么会撑大整个盒子,造成盒子的宽度不好计算,在实务中特别不方便。boxsizing可以设置盒模型的方式,可以很好的设置固定宽高的盒模型。 盒子宽高计算假如我们设置如下盒子:宽度和高度均为200px,那么这会这个盒子实际的宽高就都是200px。但是当我们设置这个盒子的边框和内间距的时候,那
艾木酱 艾木酱
1个月前
快速入门|使用MemFire Cloud构建React Native应用程序
> MemFire Cloud是一款提供云数据库,用户可以创建云数据库,并对数据库进行管理,还可以对数据库进行备份操作。它还提供后端即服务,用户可以在1分钟内新建一个应用,使用自动生成的API和SDK,访问云数据库、对象存储、用户认证与授权等功能,可专
Wesley13 Wesley13
1年前
Java日期时间API系列36
  十二时辰,古代劳动人民把一昼夜划分成十二个时段,每一个时段叫一个时辰。二十四小时和十二时辰对照表: **时辰** **时间** **24时制** 子时 深夜 11:00 - 凌晨 01:00 23:00 - 01 :00 丑时 上午 01:00 - 上午 03:00 01:00 - 03 :00 寅时 上午 03:00 - 上午 0
Wesley13 Wesley13
1年前
MySQL查询按照指定规则排序
1.按照指定(单个)字段排序 select * from table_name order id desc; 2.按照指定(多个)字段排序 select * from table_name order id desc,status desc; 3.按照指定字段和规则排序 selec
Stella981 Stella981
1年前
Angular material mat
Icon Icon Name mat-icon code _add\_comment_ add comment icon <mat-icon> add\_comment</mat-icon> _attach\_file_ attach file icon <mat-icon> attach\_file</mat-icon> _attach\
Wesley13 Wesley13
1年前
MySQL部分从库上面因为大量的临时表tmp_table造成慢查询
#### 背景描述 # Time: 2019-01-24T00:08:14.705724+08:00 # User@Host: **[**] @ [**] Id: ** # Schema: sentrymeta Last_errno: 0 Killed: 0 # Query_time: 0.315758 Lock_
helloworld_28799839 helloworld_28799839
2个月前
常用知识整理
# Javascript ## 判断对象是否为空 ```js Object.keys(myObject).length === 0 ``` ## 经常使用的三元运算 > 我们经常遇到处理表格列状态字段如 `status` 的时候可以用到 ``` vue
helloworld_34035044 helloworld_34035044
4个月前
皕杰报表之UUID
​在我们用皕杰报表工具设计填报报表时,如何在新增行里自动增加id呢?能新增整数排序id吗?目前可以在新增行里自动增加id,但只能用uuid函数增加UUID编码,不能新增整数排序id。 uuid函数说明:获取一个UUID,可以在填报表中用来创建数据ID语法:uuid() 或 uuid(sep)参数说明:sep 布尔值,生成的uuid中是否包含分隔符'',缺省为