获取网络文件及目录

var
    NetSource   :   TNetResource;
    dwResult:DWORD;
begin
    g_bFlag:=True;
    with   NetSource   do
    begin
        dwType   :=   RESOURCETYPE_ANY;
        lpLocalName   :='';
        lpRemoteName:='\\192.168.0.216\零件图片';
        lpProvider     :='';
    end;
    dwResult:=WnetAddConnection2(NetSource,'Rs@2015','administrator',CONNECT_UPDATE_PROFILE);
    if (dwResult<>0)and (dwResult<>1219) then
    begin
        ShowMessage('连接服务器失败!'+inttostr(dwResult));
        g_bFlag:=False;
    end;
    self.Image1.Picture.LoadFromFile('\\192.168.0.216\零件图片\0AV09B0154.JPG');
   (* else
    begin
      if winexec('net use p: \\192.168.0.216\e$ Rs@2015 /user:administrator',SW_HIDE)>31 then
          Sleep (3000)
      else
      begin
          application.MessageBox('登录失败.','提示信息',48);
          exit;
      end;
            // I:/零件图片/
      //从服务里拷贝文件到本地D盘
      if copyfile(PChar('p:\wenjianjia\2.txt'),PChar('d:\1.txt'),false) then
        application.MessageBox('文件复制成功.','提示信息',64)
      else
        application.MessageBox('文件复制失败.','提示信息',48);


      //直接打开共享文件夹
    //  ShellExecute(0, 'open', pchar('p:\wenjianjia\'), '', '', SW_SHOW);
    //  ShowMessage('OK!');     
    end;     *)
      if g_bFlag then
      WNetCancelConnection2('\\192.168.0.216\零件图片',CONNECT_UPDATE_PROFILE,True);