如何得到本机的共享目录???

[gong_ji]

如何得到本机的共享目录???

[wangxiangsjz]

UP,我也想知道。

[gong_ji]

怎么没有人回答呀？？郁闷!!!:)

[Atomictry]

http://vip.6to23.com/NowCan1/tech/netshare.htm

[yingyys]

学习

[缘中人]

//调用
void __fastcall TFrmNetworkResource::Button1Click(TObject *Sender)
{
LPNETRESOURCE lpnr;
EnumerateFunc(Handle, 0, this->TreeView1->Items[0].Item[0]);
}

[gong_ji]

谢谢大虾门的慷慨奉献!!

[缘中人]

bool __fastcall TFrmNetworkResource::EnumerateFunc(HWND hwnd, LPNETRESOURCE lpnr, TTreeNode * ParentNode)
{
DWORD dwResult, dwResultEnum;
HANDLE hEnum;
DWORD cbBuffer = 16384; /* 16K is reasonable size */
DWORD cEntries = 0xFFFFFFFF; /* enumerate all possible entries */
LPNETRESOURCE lpnrLocal; /* pointer to enumerated structures */
DWORD i;
dwResult = WNetOpenEnum(RESOURCE_GLOBALNET,
RESOURCETYPE_ANY,
0, /* enumerate all resources */
lpnr, /* NULL first time this function is called */
&hEnum); /* handle to resource */
if (dwResult ==67) //domain下没有可访问的主机
return true;
if (dwResult != NO_ERROR ) { //无
ShowError(dwResult);
return false;
}
TTreeNode * Child;
//待续

[缘中人]

do {
lpnrLocal = (LPNETRESOURCE) GlobalAlloc(GPTR, cbBuffer);
dwResultEnum = WNetEnumResource(hEnum, /* resource handle */
¢ries,
lpnrLocal,
&cbBuffer);
if (dwResultEnum == NO_ERROR) {
for(register i = 0; i < cEntries; i++)
{
Application->ProcessMessages();
Child=TreeView1->Items->AddChild(ParentNode,lpnrLocal[i].lpRemoteName);
if(RESOURCEUSAGE_CONTAINER==(lpnrLocal[i].dwUsage &RESOURCEUSAGE_CONTAINER))
//&&lpnrLocal[i].dwDisplayType != RESOURCEDISPLAYTYPE_SERVER)加上这句只枚举所有主机名

[缘中人]

if(!EnumerateFunc(this->Handle, &lpnrLocal[i],Child))
;//ShowMessage("EnumerateFunc returned FALSE.");
}
}

else if (dwResultEnum != ERROR_NO_MORE_ITEMS) {
ShowError(dwResultEnum);
break;
}
}
while(dwResultEnum != ERROR_NO_MORE_ITEMS);
GlobalFree((HGLOBAL) lpnrLocal);
dwResult = WNetCloseEnum(hEnum);
if(dwResult != NO_ERROR) {
ShowError(dwResult);
return FALSE;
}
return true;
}