在Delphi中怎样实现windows中网络邻居的文件copy功能？急！急！

Question

//uses shellapi;
procedure TForm1.BitBtn1Click(Sender: TObject);
var F:TShFileOpStruct;    
    b:integer;
begin
   f.Wnd:=Form1.Handle;
   f.wFunc:=fo_copy; //fo_delete,copy,move,rename
   f.pFrom:=pChar('\\510a\real\074.rm');
   f.pTo:=pChar('c:\windows\desktop\074.rm');
   f.fFlags:=FOF_ALLOWUNDO ;//or FOF_SILENT or FOF_NOCONFIRMATION;
   b:=ShFileOperation(f);
   if f.fAnyOperationsAborted then ShowMessage('用户取消操作');
   if b=0  then exit;
   beep; ShowMessage('文件操作没有实现!');
end;