复制目录: 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;
uses shellapi; procedure TForm1.Button1Click(Sender: TObject); var op:tshfileopstruct; frombuf,tobuf:array[0..128] of char;begin fillchar(frombuf,sizeof(frombuf),0); fillchar(tobuf,sizeof(tobuf),0); strpcopy(frombuf,pchar('源目录')); strpcopy(tobuf,pchar('目的目录'));with op do begin wnd:=handle; wfunc:=fo_copy; pfrom:=@frombuf; pto:=@tobuf fflags:=fof_noconfirmation; lpszprogresstitle:='正在copy!'; 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;
procedure TForm1.Button1Click(Sender: TObject);
var
op:tshfileopstruct;
frombuf,tobuf:array[0..128] of char;begin
fillchar(frombuf,sizeof(frombuf),0);
fillchar(tobuf,sizeof(tobuf),0);
strpcopy(frombuf,pchar('源目录'));
strpcopy(tobuf,pchar('目的目录'));with op do
begin
wnd:=handle;
wfunc:=fo_copy;
pfrom:=@frombuf;
pto:=@tobuf
fflags:=fof_noconfirmation;
lpszprogresstitle:='正在copy!';
end;