-
等级
本版专家分：83结帖率 100% -
如何实现文件的COPY命令急！！！展开阅读全文
-
等级
本版专家分：11752 -
就是Copy
-
等级
本版专家分：25731勋章
-
-
红花
2008年5月 Delphi大版内专家分月排行榜第一
2002年9月 Delphi大版内专家分月排行榜第一
-
- 蓝花 2002年10月 Delphi大版内专家分月排行榜第三
-
-
function DoCopyDir(sDirName:String;
sToDirName:String):Boolean;
var
hFindFile:Cardinal;
t,tfile:String;
sCurDir:String[255];
FindFileData:WIN32_FIND_DATA;
begin
//先保存当前目录
sCurDir:=GetCurrentDir;
ChDir(sDirName);
hFindFile:=FindFirstFile('*.*',FindFileData);
if hFindFile< >INVALID_HANDLE_VALUE then
begin
if not DirectoryExists(sToDirName) then
ForceDirectories(sToDirName);
repeat
tfile:=FindFileData.cFileName;
if (tfile='.') or (tfile='..') then
Continue;
if FindFileData.dwFileAttributes=
FILE_ATTRIBUTE_DIRECTORY then
begin
t:=sToDirName+'\'+tfile;
if not DirectoryExists(t) then
ForceDirectories(t);
if sDirName[Length(sDirName)]< >'\' then
DoCopyDir(sDirName+'\'+tfile,t)
else
DoCopyDir(sDirName+tfile,sToDirName+tfile);
end
else
begin
t:=sToDirName+'\'+tFile;
CopyFile(PChar(tfile),PChar(t),True);
end;
until FindNextFile(hFindFile,FindFileData)=false;
FindClose(hFindFile);
end
else
begin
ChDir(sCurDir);
result:=false;
exit;
end;
//回到原来的目录下
ChDir(sCurDir);
result:=true;
end;
-
等级
本版专家分：25731勋章
-
-
红花
2008年5月 Delphi大版内专家分月排行榜第一
2002年9月 Delphi大版内专家分月排行榜第一
-
- 蓝花 2002年10月 Delphi大版内专家分月排行榜第三
-
-
以上是文件及文件夹Copy
-
等级
本版专家分：850 -
copyfile(pchar(d:\待复制文件),pchar(savedialog1.filename)，false)
-
等级
本版专家分：25731勋章
-
-
红花
2008年5月 Delphi大版内专家分月排行榜第一
2002年9月 Delphi大版内专家分月排行榜第一
-
- 蓝花 2002年10月 Delphi大版内专家分月排行榜第三
-
-
再给一个用ShellAPI的方法
uses
ShellAPI;
function DelPath(const Handle: THandle; const SrcFile, DstFile: String): Boolean;
var
SHFileOpStruct: TSHFileOpStruct;
begin
if FileExists(SrcFile) or DirectoryExists(SrcFile) then
begin
FillChar(SHFileOpStruct, SizeOf(SHFileOpStruct), 0);
SHFileOpStruct.Wnd := Handle;
SHFileOpStruct.wFunc := FO_COPY;
SHFileOpStruct.fFlags := FOF_NOCONFIRMATION;
SHFileOpStruct.pFrom := PAnsiChar(SrcFile);
SHFileOpStruct.pTo := PAnsiChar(DstFile);
Result := SHFileOperation(SHFileOpStruct) = 0;
end
else
Result := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if DelPath(Self.Handle, 'D:\1', 'D:\2') then
ShowMessage('Copy成功！')
else
ShowMessage('Copy失败！')
end;
-
等级
本版专家分：462 -
用COPYFILE就可以了
copyfile(pchar('原文件路径),pchar('目标文件路径'),false);
-
等级
本版专家分：11418
-
copyfile拷贝文件
SHFileOperation文件夹拷贝
上面有不错的例子
- GJB150A-2009军用装备实验室环境试验方法
GJB150A全套（105.1A~105.17A；150.24A；150.25A；150.27A）
- GJB150A-2009军用装备实验室环境试验方法(上)
GJB150A-2009军用装备实验室环境试验方法(上)包括14个部分：通用要求、低气压试验、高温试验、低温试验、温度冲击试验、太阳辐射试验、淋雨试验、湿热试验、霉菌试验、盐雾试验、沙尘试验、爆炸性大气试验和浸渍试验...
- GJB150-2009.zip
GJB150A-2009军用装备实验室环境试验方法GJB 150.1A-2009 军用装备实验室环境试验方法 第1部分：通用要求 GJB 150.2A-2009 军用装备实验室环境试验方法 第2部分：低气压（高度）试验 GJB 150.3A-2009 军用装备实验...
- GJB150-2009三防试验标准.rar
GJB150A-2009三防试验的三项测试项目，不同试验使用不同的样件，若有特殊原因必须使用同一批次的样件，则严格按照先后顺序一次进行三个试验。较为合理的顺序应为：交变湿热试验一霉菌试验一盐雾试验。
- GJB150A-2009
GJB150A-2009 GJB150A-2009
- GJB150-2009军用装备实验室环境试验方法新版标准
http://www.kekaoxing.com/m/view.php?aid=22604GJB150.1A-2009 军用装备实验室环境试验方法第1部分:通用要求(代替GJB150.1-86)GJB150.2A-2009 军用装备实验室环境试验方法第2部分:低气压（高度）试验(代替GJB150.2-...
- GJB150A-2009军用装备实验室环境试验方法.rar
GJB150A全套（105.1A~105.17A；150.24A；150.25A；150.27A）挺好用的资源，亲测可用，还是不错的，大家快来下载吧！
- GJB 150.16A-2009 军用装备环境试验方法 第16部振动试验.pdf
GJB 150.16A-2009 军用装备环境试验方法 第16部振动试验GJB 150.16A-2009 军用装备环境试验方法 第16部振动试验GJB 150.16A-2009 军用装备环境试验方法 第16部振动试验
- GJB150.1A-2009军用装备实验室环境试验方法 通用要求.pdf
新版国军标GJB150-2009，替代原版1986版本的，有更新，本文档是第一部分，通用要求。
- GJB150.16A-2009 振动试验
GJB150.16A-2009 振动试验
- GJB 150.16-1986 军用设备环境试验方法 振动试验.pdf
GJB 150.16-1986 军用设备环境试验方法 振动试验pdf,GJB 150.16-1986 军用设备环境试验方法 振动试验
- 国军标环境试验GJB150-86
国军标 环境试验 GJB150-86 现在已经废除了 最新版本是GJB150A-2009但是有些产品还是需要GJB150-86的
- GJB 150.11a-2009
军用装备实验室环境试验方法：盐雾试验 GJB150.11-2009
- GJB 150.2A-2009 军用装备实验室环境试验方法 第2部分：低气压(高度)试验
GJB 150.2A-2009 军用装备实验室环境试验方法 第2部分：低气压(高度)试验
- GJB150军用装备实验室环境试验方法
GJB150全套标准，2009年整套，已经经过查新查废。其中序号缺失的标准为作废标准或被合并标准
- GJB150A讲解.ppt
GJB150与GJB150A的比较与应用分析 - 军用装备的环境试验作为其设计的重要组成部分,主要依据GJB150。2009年推出的GJB150A作为替代标准,从性质和内容上都有所区别
- 阻止Java文件被反编译的方法
老师您好我想实现在手机端访问百度这个api实现手机号归属地的查找那我该如何识别这个验证码呢搜狗截图20160416235448.png我的一个思路就是通过httpclient的post方式它的参数是对应的id值么比方说id_phone, ...
- BP神经网络预测超详细
基于BP神经网络，测试集辛烷值含量预测结果对比
- matlab随机森林回归模型代码
matlab软件随机森林法回归模型代码，可直接matlab打开运行！精简版，包括数据导入、模型建立、误差计算、保存模型，绘制对比图的多个功能！
- 神经网络对汽油辛烷值进行预测
网络上的神经网络对汽油辛烷值进行预测，个人进行了总结与修改并在Matlab上测试，通过训练spectra_data数据，然后测试，生成实际值与预测值对比，精确度较高，代码简单，适合初学者学习。
- c语言项目开发实例
十个c语言案例 （1）贪吃蛇 （2）五子棋游戏 （3）电话薄管理系统 （4）计算器 （5）万年历 （6）电子表 （7）客户端和服务器通信 （8）潜艇大战游戏 （9）鼠标器程序 （10）手机通讯录系统
- navicat简体中文版 绿色版 （64位）
解压后安装navicat，打开navicat执行PatchNavicat即破解成功。可以正常使用啦。
- Qt图形视图框架详解
介绍Qt中的Graphics View Framework，涉及View、Scene、Item的关系，如何自定义QGraphicsItem、处理Item之间的关联、如何布局及定义自己的布局Item、如何变幻Item、如何应用动画、如何处理拖放、如何给Item应用图形效果，提供拼图游戏、画板两个有用的实例。 通过本课程的学习，能够掌握Qt Graphics View Framework的基本应用，使用图形视图框架开发需要丰富的GUI效果的应用软件以及需要维护大量图元的、对图形界面层次要求较高的应用。
- Linux从入门到精通（全套系列）
Linux从入门到系列课程，全部重点放在企业应用上面。课程主要针对互联网企业运维，因此不会花多余的时间去阐述无关紧要和企业用不到的东西，所以全程都是围绕实战运维，操作为主。 通过本课程的学习，大家可以从懵懂到熟悉，从熟悉到熟练，能够在企业中熟练运用，同时在学习的过程中有任何不明白的地方，都可以向我咨询，我会积极帮助大家解决问题。
- t-sne降维可视化实例matlab
这是用t-sne算法对手写数字实例进行降维，可视化的实例，完美实现算法对手写数字的聚类，实现了分类效果。已经过检验可以使用，可放心下载运行。
- HarmonyOS.rar 华为鸿蒙操作系统 源码 国产操作系统源码 华为源码
`HarmonyOS` is the first full-scene distributed OS based on micro-kernel. It is an operating system independently developed by Huawei. On August 9, 2019, `HarmonyOS` System was officially released at the Huawei Developers Conference (
). Huawei will take the lead in deploying intelligent terminals such as smart screens, vehicle terminals and wearable terminals. In the future, more and more intelligent devices will use open source `HarmonyOS` .
- 数值分析原理_吴勃英
数值分析原理科学出版社吴勃英主编课本扫描件,lueluelue
- t-sne算法matlab原函数
matlab的t-sne算法，完美实现t-sne算法，已经过检验可以使用，可放心下载运行。
- 图像能见度
根据图像特征计算图像能见度
- 大学英语六级历年真题及详解（2017.6～2019.6）.pdf
大学英语六级历年真题及详解（2017.6～2019.6）