如何在区域网中获得其它computer使用本机文件的路径,并自动copy(空)(50分)

如何在区域网中获得其它computer使用本机文件的路径,并自动copy
thanks

function FileCopy(Source, Destination: string): boolean;
var
ShFileOpStruct: TShFileOpStruct;
begin
with ShFileOpStruct do
begin
{ operation; FO_MOVE to move the file }
wFunc := FO_COPY;
{ set source filename }
pFrom := PChar('//sqldev/share/wq.avi');
{ set destination filename }
pTo := PChar('c:/123.avi');
end;

{ returns true if successful; otherwise false }
result := (0 = SHFileOperation(ShFileOpStruct));
end;

接受答案了.