怎样在BCB中发现共享的网络驱动盘，并且对它进行读写操作？真诚请教!!!!!!!!!!!!!!!!!

[明行]

[wjzhuang]

相关贴子
http://www.csdn.net/expert/Topic/75/75130.shtm

[wjzhuang]

回复人：wyb_star(孤星)　(2001-6-7 19:41:00) 得0分
映射网络驱动器


用此方法让你可以映射网络驱动器和断开映射网络驱动器，用本机来试通不过，如果你在网络上也通不过，请告知建立映射网络驱动器
procedure TForm1.Button1Click(Sender: Tobject);

var NetR :NETRESOURCE;ErrInfo : Longint;

begin

NetR.dwScope := RESOURCE_GLOBALNET;

NetR.dwType := RESOURCETYPE_DISK;

NetR.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;

NetR.dwUsage := RESOURCEUSAGE_CONNECTABLE;

NetR.lpLocalName := 'j:';

NetR.lpRemoteName := '\\Lifang\c';

ErrInfo := WNetAddConnection2(NetR, '', '', CONNECT_UPDATE_PROFILE);

If ErrInfo = NO_ERROR Then

messagebox(0,'Net connection successful!','',0)

Else

messagebox(0,'ERROR: ','',0);

end;

断开映射网络驱动器
procedure TForm1.Button2Click(Sender: Tobject);

var ErrInfo : Longint;

strLocalName : pchar;

begin

strLocalName:='j:';

ErrInfo := WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE, False);

If ErrInfo = NO_ERROR Then

messagebox(0,'Net disconnection successful!','',0)

Else

messagebox(0,'ERROR','',0);

end;

[明行]

wjzhuang(困惑中的程序猪)　
非常感谢你的指教，不知道有没有什么更好的办法，还有，可以用C＋＋写一次吗？谢谢你了。
还有就是，如果对方没有共享，有什么办法进行读写操作吗？

[dycdyc123]

那恐怕不能，

否则可以黑人家了！

[明行]

dycdyc123(dycdyc123)
为什么不能，在计算机上只有不会，没有不能。

[wjzhuang]

是呀,没共享应该不行
我改写了一下,不过运行有问题
我正在看,你也看看

void __fastcall TForm1::Button2Click(TObject *Sender)
{
NETRESOURCE *NetR;
long ErrInfo;
NetR->dwScope = RESOURCE_GLOBALNET;
NetR->dwType = RESOURCETYPE_DISK;
NetR->dwDisplayType = RESOURCEDISPLAYTYPE_SHARE;
NetR->dwUsage = RESOURCEUSAGE_CONNECTABLE;
NetR->lpLocalName = "j:";
NetR->lpRemoteName = "\\xiaojun\c";
ErrInfo = WNetAddConnection2(NetR, "", "", CONNECT_UPDATE_PROFILE);
if(ErrInfo == NO_ERROR)
MessageBox(0,"Net connection successful!","",0);
else
MessageBox(0,"ERROR: ","",0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
// 断开映射网络驱动器
long ErrInfo;
char *strLocalName;
strLocalName ="j:";
ErrInfo = WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE, false);
if( ErrInfo == NO_ERROR )
MessageBox(0,"Net disconnection successful!","",0);
else
MessageBox(0,"ERROR","",0);
}

[wjzhuang]

NetR->dwScope = RESOURCE_GLOBALNET;
错在这里,为什么?

[明行]

wjzhuang(困惑中的程序猪)　
太谢谢你了。有机会请你喝酒，我想知道有些程序（如病毒），为什么能在局域网上传播呢。（没有共享）

[wjzhuang]

呵呵~~~~~~~~~
前天刚和几个同学喝过一次

我想应该是自己寻找可共享的资源,然后读写
程序帮我看看,为什么出错

[明行]

不好意思，我是在网吧里上网，无法进行调试。所以不太明白为什么。你要是找到了原因，给我说一下，OK，谢了！！！！！！！！！

[wjzhuang]

我看不出来,开始就错
我想可能我定于的类型不对

[明行]

NETRESOURCE *NetR
把＊号去掉试一下呢？

[wjzhuang]

不行,那样编译过不去

[wjzhuang]

会提示出错
//以下这一句
ErrInfo = WNetAddConnection2(NetR, "", "", CONNECT_UPDATE_PROFILE);

[明行]

你找到了原因，给我说一下，你这人挺好，交个朋友吧：[e-mail]
我现在要走了，不然我的money可受不了.今天谢谢你了，下次来的时候给你加分。OK！！！！！！！！

[我不懂电脑]

原来就说过了。
心情极坏

[whitelion]

学习

[明行]

立刻加分