delphi建立共享文件夹 withNetSourcedo begin dwType:=RESOURCETYPE_ANY; lpLocalName:='X:';//映射到本地的驱动器名称 lpRemoteName:='\\...\wenjian\';//共享文件夹目录 lpProvider:=''; end;