如此实现与内网的一台机建立IPC$连接? ( 积分: 60 )

如此实现与内网的一台机建立IPC$连接?
跪求牛人..小弟菜鸟,希望给出代码..~![]
分虽然不错,可小弟真的没什么分了,谢谢先!

Function NetDriverAdd(driver: string): Boolean;
var
NR : TNetResource;
begin
with NR do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := '';//pchar('W:');
lpRemoteName := pchar(driver);
lpProvider := '';
end;
if WNetAddConnection2(NR, pchar(''), pchar('administrator'), // 密码， 用户名
CONNECT_UPDATE_PROFILE) = NO_ERROR then Result := True else Result := False;
end;


Function NetDriverDisconnect(driver: string): boolean;
begin
if WNetCancelConnection2(pchar(driver), CONNECT_UPDATE_PROFILE,true) = NO_ERROR then Result := True else Result := False;
end;

NetDriverAdd('//10.0.0.0.1/ipc$');

NetDriverDisconnect('//10.0.0.0.1/ipc$');

璋?簡...[][][]