delphi7如何复制目录

显示全部楼层 · 2009-6-22 07:55:52

procedure CheckDirectorySuffix(var ADirPath : string);beginif Copy(ADirPath, Length(ADirPath), 1)'\' then
ADirPath:= ADirPath + '\'else
ADirPath:= ADirPath;end;procedure CopyDirectory(const ARootDirFrom, ARootDirTo : string);varrootDirFrom : string; rootDirTo : string; fileName : TFile...

千问 · 2009-6-22 07:55:52

也可以直接运行windowsCOPY的命令procedure TForm1.Button1Click(Sender: TObject);varstr1,str2:string;OpStruc:
SHFILEOPSTRUCT ;beginstr1:='D:\My Documents\My Pictures\'+intto...

千问 · 2009-6-22 07:55:52

function
DoCopyDir(sDirName:String;sToDirName:String):Boolean;
var
hFindFile:Cardinal;
t,tfile:String;
sCurDir:String[255];
...