如何在WIN98下设置共享和删除共享？（急急急！！！）

Question

虽然这个问题有很多人已经做了回答，但我试了有些不行，而有些太繁，不知哪为高手有绝招。另外，还有个问题想求教，就是如何判断某一指定的机器上已经有指定的共享目录？？？

Answer 1

哈巴狗的：
映射网络驱动器
用此方法让你可以映射网络驱动器和断开映射网络驱动器，用本机来试通不过，如果你在网络上也通不过，请告知建立映射网络驱动器
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;beginstrLocalName:='j:';ErrInfo := WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE, False);If ErrInfo = NO_ERROR Thenmessagebox(0,'Net disconnection successful!','',0)Elsemessagebox(0,'ERROR','',0);end;