delphi中怎樣訪問另外一個局域網的共享文件夾？

Question

怎樣訪問另外一個局域網的共享文件夾？在集團的另外一個公司裡，有另外一個局域網，在其中的一臺服務器裡，我有個共享文件，我也新增了可以訪問的userid,但我不想映射為“網絡驅動器”,我想讓他在連接時才連通，請問在delphi裡怎樣通過給定的用戶訪問共享文件夾？謝謝！

Answer 1

to DelphiGuy() 怎樣調用這個函數？謝謝！

Answer 2

用winexec执行命令：net use \\ip /user:用户名 密码
然后直接
\\ip地址\ipc$\文件夹名称

Answer 3

var
  NetResource: TNetResource;
  Result: cardinal;
// ...
  NetResource.dwType := RESOURCETYPE_DISK;
  NetResource.lpLocalName := nil;
  NetResource.lpRemoteName := '\\192.168.0.100\dir';
  NetResource.lpProvider := nil;
  Result := WNetAddConnection2(NetResource, 'password', 'username', 0);
  if Result = NO_ERROR then
// ...
// 值得注意的是：如果返回错误值是1219（ERROR_SESSION_CREDENTIAL_CONFLICT），表明这个网络路径已经连接了，可以直接使用