这个文件复制该怎么做?急急急急!(100分)

  • 主题发起人 主题发起人 xinmowyj
  • 开始时间 开始时间
X

xinmowyj

Unregistered / Unconfirmed
GUEST, unregistred user!
两台通过串口直接相连的机器,如何将一台机器里的目录(包含子目录)
拷贝另外一台机器里?跟“网络邻居”好像比较类似,但对于我这种菜鸟来说
不简单,请高手指点!
 
通过WinApi函数SHFileOperation可以实现
var
opstruc:TSHFileOpStruct;
FromBuf,ToBuf:array [0...128] of char
begin
fillchar(FromBuf,Sizeof(FromBuf),0);
Fillchar(ToBuf, sizeof(ToBuf),0);
StrCopy(fromBuf,PChar(edit1.text));
StrCopy(ToBuf,PChar(edit2.Text));
//设置OPStruc
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;
if SHFileOperation(OPStruc) = 0 then
ShowMessage('OK');
end;
 
to shineyes :
能不能把你的程序加点详细的注释?偶一菜鸟看不懂。
先给20分,搞定了再加!
 
to shineyes:

TSHFileOpStruct 是哪个单元里的?
我编译的时候出现 Undeclared identifier:TSHFileOpStruct
还有阿,edit1,和edit2 里是什么内容?是我要复制的文件吗?

还请指点!先谢了!




 
to shineyes:
而且,我的要求是通过串口相连的两台机器上的操作,
为什么却没有关于串口通信方面的处理呢?
 
可以使用dos的方法,在dos下不是可以在两台连机的机器之间进行拷贝等操作么,
你可以在delphi调用
 
我知道dos下LL3.EXE可以拷贝,但是不知道如何调用?能详细说说吗?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部