如此实现与内网的一台机建立IPC$连接?

athqq2005

如题...
如何实现呢?希望牛人可以给出代码....
谢谢先~!

woshipapa

可以这样:
WinExec('command.com /c net use \\192.168.0.1\ipc$ 123456 /user:administrator ',SW_SHOW);

madwww

上面的可以简化为:
WinExec('net use \\192.168.0.1\ipc$ 123456 /user:administrator ',SW_SHOW);

只有内部命令才需要调用command.com或cmd.exe

athqq2005

晕,如何实现不需要第三方工具的？

sai5100

//建立远程连接 xPath: 远程路径  xNetUser/xNetPassword: 可以指定用户名及密码
function AddNetConnection(xPath, xNetUser, xNetPassword: string): string;
var
  mNetSource: TNetResource;
  mNetUser, mNetPassword: PChar;
  mErrorCode: Cardinal;
begin
  Result := '';
  if Copy(xPath, 1, 2) <> '\\' then Exit; //非远程方式,退出

  try
    with mNetSource do
    begin
      dwScope := RESOURCE_GLOBALNET;
      dwType := RESOURCETYPE_ANY;
      dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;
      dwUsage := RESOURCEUSAGE_CONNECTABLE;
      lpLocalName := nil; //这里可以指定本地驱动器名,则将xPath映射为本地驱动器,传nil,只与xPath建立远程连接
      lpRemoteName := LPTSTR(xPath);
      lpComment := nil;
      lpProvider := nil;
    end;
    if xNetUser <> '' then
    begin
      mNetUser := LPTSTR(xNetUser);
      mNetPassword := LPTSTR(xNetPassword);
    end
    else
    begin
      mNetUser := nil;
      mNetPassword := nil;
    end;

    mErrorCode := WNetAddConnection2(mNetSource, mNetPassword, mNetUser, CONNECT_UPDATE_PROFILE);
    if mErrorCode <> NO_ERROR then //映射失败
      Result := Format('与 %s 建立网络连接时发生错误! 错误信息: %s', [xPath, SysErrorMessage(mErrorCode)]);
  except
    on E: Exception do
      Result := Format('与 %s 建立网络连接时发生错误! 错误信息: %s', [xPath, E.Message]);
  end;
end;

//mPath如果传入远程路径,则断开与远程路径的网络连接
//mPath如果传入本地驱动器名,则断开本地驱动器
function CancelNetConnection(xPath: string): string;
var
  mErrorCode: Cardinal;
begin
  Result := '';
  if Copy(xPath, 1, 2) <> '\\' then Exit; //非远程方式,退出

  try
    mErrorCode := WNetCancelConnection2(LPTSTR(xPath), CONNECT_UPDATE_PROFILE, True);
    if mErrorCode = NO_ERROR then
      Result := Format('与 %s 断开网络连接时发生错误! 错误信息: %s', [xPath, SysErrorMessage(mErrorCode)]);
  except
    on E: Exception do
      Result := Format('与 %s 断开网络连接时发生错误! 错误信息: %s', [xPath, E.Message]);
  end;
end;