delphi如何复制文件夹

Posted 2023-04-27

我想用两个Edit控件，分别写上要复制文件夹的地址和该文件夹要复制到的地址，然后用一个button写上事件来完成复制功能，请哪位大侠帮忙，感激不尽
能不能详细一点的，加点注释，感激不尽！

可以用以下的方法：

CopyFile(pchar(\'c:\\sql.txt\'), pchar(\'d:\\sql.txt\'), True);

只要是文件的复制，都可以。

移动文件：
MoveFile(pchar(\'c:\\sql.txt\'), pchar(\'d:\\sql.txt\'));

删除文件：

DeleteFile(\'c:\\sql.txt\')；

以上都是可行的。 参考技术A function CopyDir(SrcDir, DesDir: String): Boolean;
var
ss: TSHFileOpStruct;
begin
Result := False;
if not DirectoryExists(SrcDir) then Exit;
FillChar(ss, SizeOf(ss), 0);
ss.Wnd := Handle;
SS.pFrom :=PChar(SrcDir + #0);
ss.pTo := PChar(DesDir + #0);
ss.wFunc := FO_COPY;
ss.fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
Result := SHFileOperation(ss) = 0;
end;

参考资料：http://hi.baidu.com/%CC%EC%B5%D8%BB%CC%BB%CC

本回答被提问者采纳 参考技术B 可以分步做嘛，先建立文件夹，再把文件复制到新的文件夹下，不是也能实现你的功能吗？ 参考技术C uses shellAPI;

procedure TForm1.Button1Click(Sender: TObject);

var

lpFileOp: TSHFileOpStruct;

begin

with lpFileOp do

begin

Wnd:=Self.Handle;

wfunc:=FO_COPY;

pFrom:=pchar('C:\AAA');

pTo:=pchar('D:\AAA');

fFlags:=FOF_ALLOWUNDO;

hNameMappings:=nil;

lpszProgressTitle:=nil;

fAnyOperationsAborted:=True;

end;

if SHFileOperation(lpFileOp)<>0 then

ShowMessage('失败');

end; 参考技术D cobi(小新国际)兄:我照你所说的做了，但系统提示SHFileOpStruct为非法变量，请问是否需要uses其它单元？另外，我的源目录及目标目录是用string变量表示的，如何实现与PChar变量的互换？

如何定位文件中的指定的一个位置(delphi)？

呵呵，我是菜鸟，现在只会从头顺次读取文件数据，用的是blockread函数。

如题，就是想做一个类似于拖动播放器进度条快速浏览电影的效果，delphi里什么函数可以快速的定位文件中的指定的一个位置，然后再读取文件数据？

比如有一个20M的文件，我想要通过进度条的拖动，定位到12.065M的位置（或者别的什么位置，由进度条的拖动位置决定），然后从这个位置开始顺次读取数据。

参考技术A 用panel控件。
如：有两个窗体，form1、form2，且form2是主窗体。希望把
form2
放在form1的某个位置，你可以这样做：
先在form1上放置一个panel，然后，在form1的onshow事件中，添加如下代码：
procedure
tform1.formshow(sender:
tobject);
begin
with
form2
do
begin
parent:=panel1;
left:=0;
top:=0;
show;
end;
end;
运行一下，看看form2是不是跑到了panel1中？ 参考技术B 使用seek函数。本回答被提问者采纳 参考技术C 用seek(txt文件句柄,偏移位置);