【结】复制文件报错**

wj0623

注意空格留出来的两行代码！ 如果是直接跟绝对路径，没有问题。换成下面格式就会报错，如图：
var
  SHFILEOPSTRUCTA : Borland.Delphi.ShellAPI._SHFILEOPSTRUCTA;
begin
  SHFILEOPSTRUCTA.Wnd := HWND_DESKTOP;
  SHFILEOPSTRUCTA.wFunc := FO_COPY;

  SHFILEOPSTRUCTA.pFrom:=OpenDialog1.FileName;
  SHFILEOPSTRUCTA.pTo:=DataSetBroker1.DataSet.FieldByName('WJLJ').AsString

  SHFILEOPSTRUCTA.fFlags := FOF_FILESONLY;
  SHFILEOPSTRUCTA.fAnyOperationsAborted := True;
  SHFILEOPSTRUCTA.lpszProgressTitle := '正在复制...';
  Borland.Delphi.ShellAPI.SHFileOperation(SHFILEOPSTRUCTA);
end;

jiahaiming

似乎是共享权限不对了。
你直接用windows操作可以吗？

wj0623

可以的，如果我直接给出路径执行都是成功的！！！你可以测试一下！！！！

wj0623

找到原因了，谢谢！！结贴！！！！