如此实现与内网的一台机建立IPC$连接? 如题...如何实现呢?希望牛人可以给出代码....谢谢先~! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以这样:WinExec('command.com /c net use \\192.168.0.1\ipc$ 123456 /user:administrator ',SW_SHOW); 上面的可以简化为:WinExec('net use \\192.168.0.1\ipc$ 123456 /user:administrator ',SW_SHOW);只有内部命令才需要调用command.com或cmd.exe //建立远程连接 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; 如何点btn 计数器加1 急求两本电子书籍! 请问CX开头的是什么控件啊? 到底学不学DELPHI呢? 一个关于FastReport数据显示的问题,急! 怎样实现在我的应用程序(已经是Exe文件了)中,加栽Active和Delphi VCL控件! 有关treeview Delphi用来做B/S结构的开发合适吗? 图形存储问题 大家帮一下我这只菜鸟???????? dll中怎么封装图片? 关于SPCOMM通信问题!!
WinExec('command.com /c net use \\192.168.0.1\ipc$ 123456 /user:administrator ',SW_SHOW);
WinExec('net use \\192.168.0.1\ipc$ 123456 /user:administrator ',SW_SHOW);只有内部命令才需要调用command.com或cmd.exe
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;