如何增加一个共享?

Question

我在用NETSHAREADD()增加共享时总出错,可能是参数不对,有谁可给一个例子或指导?

Answer 1

删除一个共享:DeleteShare(nil,Pchar(共享名称));　　添加一个只读共享:ShareResource(nil,pchar(路径),Pchar(共享名称),Pchar(共享说明),STYPE_DISKTREE,SHI50F_RDONLY,'','');　　添加一个完全共享:ShareResource(nil,pchar(路径),Pchar(共享名称),Pchar(共享说明),STYPE_DISKTREE,SSHI50F_FULL,'','');　　

Answer 2

删除一个共享:DeleteShare(nil,Pchar(共享名称));　　添加一个只读共享:ShareResource(nil,pchar(路径),Pchar(共享名称),Pchar(共享说明),STYPE_DISKTREE,SHI50F_RDONLY,'','');　　添加一个完全共享:ShareResource(nil,pchar(路径),Pchar(共享名称),Pchar(共享说明),STYPE_DISKTREE,SSHI50F_FULL,'','');　　

Answer 3

csdn越来越烂，明明没有成功却发了两遍。麻烦你阅读不好意思

Answer 4

多谢wanderung(扬清)的回复。但在用时总是提示ShareResource（）无定义，在哪一个单元啊，还有我的是WIN2000，增加时想指定给某一用户，不知该如何做，请指教。

Answer 5

用你说的方法只能在9X下实现function NetShareAdd(servername: PChar; level: SmallInt; buf: Pointer; buf_len: SmallInt): SmallInt; far; stdcall; external 'svrapi.dll';
function NetShareDel(servername: PChar; buf: Pointer; reserved: SmallInt): SmallInt; far; stdcall; external 'svrapi.dll';~~~~~~~~~常用参数和错误对照（常用）~~~~~~~~~~~~~~
const
  NETNAME_LEN = 13;
  PASSWORD_LEN = 9;
  SHI50F_RDONLY = $0001;
  SHI50F_FULL = $0002;
  SHI50F_DEPENDSON = $0003;
  SHI50F_ACCESSMASK = $0003;
  SHI50F_PERSIST = $0100;
  SHI50F_SYSTEM = $0200;
  STYPE_DISKTREE = 0;
  STYPE_PRINTQ = 1;
  STYPE_DEVICE = 2;
  STYPE_IPC = 3;
  NERR_Success = 0;
  NERR_BASE = 2100; //常量说明
  NERR_UnKnownDevDir = (NERR_BASE + 16);
  NERR_UnknownServer = (NERR_BASE + 3);
  NERR_ServerNotStarted = (NERR_BASE + 14);
  NERR_RedirectedPath = (NERR_BASE + 17);
  NERR_DuplicateShare = (NERR_BASE + 18);
  NERR_BufTooSmalll = (NERR_BASE + 23); //NetShareAdd返回错误
  NERR_NetNotStarted = (NERR_BASE + 2);
  NERR_NetNameNotFound = (NERR_BASE + 210);
  NERR_ShareNotFound = (NERR_BASE + 292); //NetShareDel返回错误

Answer 6

完整的错误对照！和9X+Nt通用 共享方法 都太长 不好贴…… 你留下信箱吧！

Answer 7

我的邮箱是:[email protected] ,先多谢了.

Answer 8

各位给我也发送一份吧！
email:[email protected]

Answer 9

也给我发一份，谢谢
[email protected]