用Delphi7实现多个文件夹的复制与粘贴,最好用“内存流”的形式,一定要可以选择保存路径的要求!!
解决方案 »
- 100 分 求 pudn 下载 有账户的帮帮忙
- 初学。怎么把EXCEL转换成文本.txt的?100
- 我想在我的聊天程序加入这个游戏(征途)一样的聊天框.请问如何实现?
- 一個Delphi菜鳥的問題(twwdbgrid用法)
- 100分+C#进销存换个DELPHI进销存财务源码,不要胜天的
- 怎样做录音程序?
- 类必须先声明后使用吗???具体情况见内容。
- 再给两分,刚才给了非技术分
- 让edit框中的文字显示在中间位置是什么属性???
- 如何动态控制stringgrid的行数,以及如何得到鼠标点击的行号
- 使用query添加sql语句插入非字符数据使用动态参数出现类型不匹配
- 用tspliter如何实现上下分栏?
procedure copyFilepro(const Str, Dtr: string);
var
OpStruc: TSHFileOpStruct; frombuf, tobuf: array[0..128] of Char;
begin
FillChar(frombuf, Sizeof(frombuf), 0);
FillChar(tobuf, Sizeof(tobuf), 0);
StrPCopy(frombuf, Str);
StrPCopy(tobuf, Dtr);
with OpStruc do
begin
Wnd := Handle;
wFunc := FO_COPY;
pFrom := @frombuf;
pTo := @tobuf;
fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end; {WITH}
ShFileOperation(OpStruc);
end;