delphi - 以编程方式共享文件夹并撤销它。 (德尔福7)

Question

1. 如何以编程方式从已知目录创建 UNC 共享？
2. 如何以编程方式撤销它？

我不希望用户摆弄“共享”对话框。还欢迎更改共享名称、评论、用户限制等其他信息。

谢谢魂刃(使用Delphi 7)

Answer 1

使用 NetShareAdd 创建共享。这将使用空 ACL 共享目录，这相当于允许每个人完全访问。

删除 NetShareDel 的共享.

Madshi的 MadSecurity 包有一个帮助器，可以将其简化为:

NewShare(path, shareName, remark);
Share(shareName).Delete;