如何实现网络间文件的拷贝?
知道对方的ip地址和文件路径
知道对方的ip地址和文件路径
解决方案 »
- delphi中messagebox 和showmessagepos的结合??求助
- Hook引起程序崩溃
- adoquery 查找不到应该得到的值
- delphi如何接收DLL传来的NULL值?
- 如何禁止用户在WebBrowser上选择内容?
- 撒分!今天才发现身边一个朋友都没有,好孤单!!!想哭。
- 用Delphi6自带的InstallShield Express对数据库程序进行打包
- 现在有那些关于delphi 图形方面的书呢?推荐一下吧.
- 为什么用QuickRep做的报表在EPSOONEPSON STYLUS COLOR 460中打印不出来啊?
- 各位大侠,快来帮帮忙了!!毕业设计急需解决的问题,请一定援手
- 求教:写一个存储过程
- 怎样在程序的运行中得到SQL数据库连接的活动用户数?在线等待。
文件路径写成网络路径即可
可不可以写得详细点?
windows下文件拷贝?什么意思,难道你不是用的windows?
还是指想编一个进度条?
.
//api拷贝文件夹函数 标准windows 拷贝 带进度条 呵呵~~~
function tform1.DoCopyDir(sDirName:String;sToDirName:String;):Boolean;
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
Begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, sDirName );//从哪个文件夹拷贝
StrPCopy( tobuf, sToDirName);//拷贝到哪个文件夹
With OpStruc DO Begin
Wnd:= Handle;//哪个窗口引用
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
end;
ShFileOperation( OpStruc )=0 then
end;