局域网中文件夹的共享WindowsNT/2000/XP

局域网中文件夹的共享 Windows NT/2000/XP

在局域网中通过程序实现文件夹的共享，就我知道的应该至少有两种实现方式。一是修改注册表，但是这种方法存在的问题也是很明显的，必须重起机器才能生效。二就是利用 Windows Api函数 NetShareAdd ,通过这个函数我们可以很容易的实现文件夹的共享，而且无需重起计算机。使用这个函数时我们必须注意的是在 Windows NT/2000/XP 和 Windows 95/98/Me 下用法是有很大差别的，这一点我相信大家都有体会，明明在 95 或 98 下实现好好的，可是一到 NT 下就出问题。

其实不光是各位仁兄，我早就提出过这个问题，怎奈一直都没有解决掉。现在好了，希望读完后能给大家一点点帮助。

Windows 95/98/Me 下 NetShareAdd 函数声明在 SVRAPI.DLL 动态连接库中，而在 2000/XP/NT 下声明在 NETAPI32.DLL 动态连接库中。所以我们在不同的操作系统下一定要注意调用不同的 DLL 库。这些函数详细的声明，在新版 MSDN 2002 中有介绍。由于在Delphi中没有声明这些函数和他们的参数所以我们要想实现这个函数还必须自己声明（可能delphi 有声明我不知道在那个单元中）。顺便说一句，我使用的是 delphi5.0 版，可惜他的帮助文件实在是太陈旧了，还是先看看 MSDN 2002 中关于 NetShareAdd 函数的声明巴！

Windows NT/2000/XP:

NET_API_STATUS NetShareAdd(

  LPWSTR servername, //对应 Delphi 中 PWideChar

  DWORD level,       //对应 DELPHI 中 DWOED

  LPBYTE buf,        //对应 DELPHI 中 PBYTE

  LPDWORD parm_err   // 对应 DELPHI 中 PDWORD

);

Windows 95/98/Me: 下面的对应参数就不用说了吧！可以直接看看DELPHI帮助文件。

extern API_FUNCTION

 NetShareAdd(

  const char FAR * pszServer,

  short sLevel,

  const char FAR * pbBuffer,

  unsigned short  cbBuffer

);

特别强调：

我们在声明上面的函数时，函数参数一定要写对，也就是一定要正确对应到DELPHI 自己的类型上。不然函数功能无法实现，这一点我已经尝试了。之所以在NT 下实现不了主要还是，参数类型对应的不对。我们还需要声明一个记录类型，在98/95/me 和 nt/2000/xp

补充：软件开发 , Delphi ,